Как такое реализовать - listbox в две строки или что-то другое?

procedure TForm1.Button4Click(Sender: TObject);
var f: TextFile;
    s1, s2: string;
    i, j: integer;
    separator: char;
begin
   {if OpenDialog1.Execute then                            // рабочий код
    ListBox1.Items.LoadFromFile(OpenDialog1.FileName); }
 
  if OpenDialog1.Execute then
  begin
  i := 0;
  AssignFile (f, OpenDialog1.FileName);
  Reset(f);
  while not eof(f) do
  begin
  readln (f, s1);
      i := i + 1;
   j := 0;
   while pos(separator, s1)<>0 do
    begin
      s2 := copy(s1,1,pos(separator, s1)-1);
     j := j + 1;
     delete (s1, 1, pos(separator, S1));
     ListBox2.Items.Add(s2);
    end;
    if pos (separator, s1)=0 then
    begin
          j := j + 1;
 
     ListBox2.Items.Add(s1);
    end;
  end;
      CloseFile(f);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var t:tstringlist;
    i:byte;
begin
 t:=tstringlist.Create;
 t.LoadFromFile('1111.txt');
 for i:=0 to t.Count-1 do
  begin
   ListBox1.Items.Add(t.Names[i]);
   ListBox2.Items.Add(t.ValueFromIndex[i]);
  end;
end;

var
  SL: TStringList;
  Temp: string;
  i: Integer;
  f: TextFile;
begin
  if OpenDialog1.Execute then
  begin
      SL := TStringList.Create;
      SL.LoadFromFile(OpenDialog1.FileName);
      SL.Delimiter := '|';
      SL.QuoteChar := '"';
      SL.StrictDelimiter := True;
      SL.DelimitedText :=SL.Text;
 
    for i := 0 to SL.Count - 1 do begin
    ListBox2.Items.Add(SL.Names[i]);
    ListBox3.Items.Add(SL.ValueFromIndex[i]);
    end;
    end;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var SL,t: TStringList;
    i: Integer;
begin
 if OpenDialog1.Execute then
  begin
      SL := TStringList.Create;
      SL.LoadFromFile(OpenDialog1.FileName);
      for i:=0 to SL.Count-1 do
       begin
        t:=TStringList.Create;
        t.Delimiter := '|';
        t.DelimitedText :=SL[i];
         ListBox1.Items.Add(t[0]);
        ListBox2.Items.Add(t[1]);
       end;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var SL,t: TStringList;
    i: Integer;
begin
 if OpenDialog1.Execute then
  begin
      SL := TStringList.Create;
      SL.LoadFromFile(OpenDialog1.FileName);
      for i:=0 to SL.Count-1 do
       begin
        t:=TStringList.Create;
        t.Delimiter := '|';
        t.DelimitedText :=SL[i];
        ListBox1.Items.Add(t[0]);
        ListBox2.Items.Add(t[1]);
        t.Free
       end;
    end;
   SL.Free;
end;

var   t:tstringlist;   //глобальные переменные
.......                   
 
procedure TForm1.Button3Click(Sender: TObject);
var i:byte;
 
begin
  if Edit2.Text='' then
  begin
    showmessage('Пустое значение');
    exit
  end;
   t.Add(Edit2.Text);   // T TStringList объявлен  в глобальных переменных. в t добавить  зачение из Edit вида имя=значение
 
  for i:=0 to t.Count-1 do   - проходим  по t
   begin
      t.SaveToFile('playlist.pls');  - сохраняем
    end;
 
  Edit2.Text:='';    // обнуляем Edit
end;

procedure TForm1.Button3Click(Sender: TObject);
var i:byte;
begin
  if Edit2.Text='' then
  begin
    showmessage('Пустое значение');
    exit;
  end;
   //ListBox1.Items.Add(Edit2.Text);
   //t:=tstringlist.Create;
   t1:=Tstringlist.Create;
   t1.Add(Edit2.Text);
   for i:=0 to t1.Count-1 do
       begin
            t.Add(t1[i]);
            t.SaveToFile('playlist.pls');
       end;
  t.Free;
  t1.Free;
  Edit2.Text:='';
end;

procedure TForm1.Button3Click(Sender: TObject);
var i:byte;
begin
  if Edit2.Text='' then
  begin
    showmessage('Пустое значение');
    exit;
  end;
   t.Add(Edit2.Text);
   t.SaveToFile('playlist.pls');
   Edit2.Text:='';
end;

procedure TForm1.FormCreate(Sender: TObject);
var
   {t:tstringlist;  }
   i:byte;
begin
  BASS_Init(-1,44100,0,Handle,nil);
  BASS_SetConfig(BASS_CONFIG_NET_PLAYLIST, 1);
 // ListBox1.Items.LoadFromFile('playlist.pls');
 t:=tstringlist.Create;
 t.LoadFromFile('playlist.pls');
 for i:=0 to t.Count-1 do
  begin
   ListBox2.Items.Add(t.Names[i]);
   ListBox1.Items.Add(t.ValueFromIndex[i]);
  end;
  TrackBar1.Position:=50;
  t.Free;
end;