Selected

Kode 

var
temp : string;
begin
  if ListBox1.ItemIndex > -1 then
  begin
    if Odd(ListBox1.ItemIndex) then
    begin
      Edit1.Text := ListBox1.Items[ListBox1.ItemIndex-1];
      temp := ListBox1.Items[ListBox1.ItemIndex];
      Edit2.Text := Copy(temp,1,Pos('-',temp)-2);
      Delete(temp,1,Pos('-',temp)+1);
      Edit3.Text := Copy(temp,1,Pos('-',temp)-2);
      Delete(temp,1,Pos('-',temp)+1);
      Edit4.Text := temp;
    end
    else
    begin
      Edit1.Text := ListBox1.Items[ListBox1.ItemIndex];
      temp := ListBox1.Items[ListBox1.ItemIndex+1];
      Edit2.Text := Copy(temp,1,Pos('-',temp)-2);
      Delete(temp,1,Pos('-',temp)+1);
      Edit3.Text := Copy(temp,1,Pos('-',temp)-2);
      Delete(temp,1,Pos('-',temp)+1);
      Edit4.Text := temp;
    end;
  end;

Kode 

[MADS]
Get.Ahead.In.Business.And.Life.2006.DANISH.READNFO.PAL.DVDR-DFG=  1  -    DONE
[ANDERS]
Get.Ahead.In.Business.And.Life.2006.DANISH.READNFO.PAL.DVDR-DFG=  1  -    DONE
[JACOB]
Get.Ahead.In.Business.And.Life.2006.DANISH.READNFO.PAL.DVDR-DFG=  1  -    DONE
[ERIK]
The.Fog.2005.NORDiC.PAL.DVDR-APOCALYPSE=1  -  DONE
[DAN]
Lucky.Number.Slevin.2006.DVDSCR.Custom.DKsubs.PAL.DVDR-DFG=1  -  DONE
Scary Movie 4 2006 Custom DKSUBS NTSC DVDR-DanishGuy=2  -  DONE
Mission Imposibel 3=1  -  Waiting
Pusher.3.2005.NORDIC.PAL.DVDR-pusher=1  -  DONE
[SABINA]
Get.Ahead.In.Business.And.Life.2006.DANISH.READNFO.PAL.DVDR-DFG=1  -  DONE

Kode 

var
temp : string;
i: Integer;
begin
  if ListBox1.ItemIndex > -1 then
  begin
    temp := ListBox1.Items[ListBox1.ItemIndex];
    if Pos('-',temp) > 0 then
    begin
      //
      Edit2.Text := Copy(temp,1,Pos('-',temp)-2);
      Delete(temp,1,Pos('-',temp)+1);
      Edit3.Text := Copy(temp,1,Pos('-',temp)-2);
      Delete(temp,1,Pos('-',temp)+1);
      Edit4.Text := temp;
      for i:=ListBox1.ItemIndex-1 downto 0 do
      begin
        if Pos('-',ListBox1.Items[i]) = 0 then
        begin
        Edit1.Text := ListBox1.Items[i];
        Exit;
        end;
      end;
    end
    else
    begin
      Edit1.Text := ListBox1.Items[ListBox1.ItemIndex];
      Edit2.Text := '';
      Edit3.Text := '';
      Edit4.Text := '';
    end;
  end;