Listbox v Delphi

Našiel som kúsok kódu vyskúšaj:

procedure TForm1.Button1Click(Sender: TObject);
Const
  // The maximum number of Tabs
  MAX_TABS = 4;
  TAB = #9;
var
  Tabulator : array[0..MAX_TABS] of Integer;
begin
  // Set the Tabulator Widths
  Tabulator[0] := 70;
  Tabulator[1] := 120;
  Tabulator[2] := 100;
  Tabulator[3] := 80;
  Listbox1.TabWidth := 1;
  // Set the Tabulators
  SendMessage(ListBox1.handle, LB_SETTABSTOPS, MAX_TABS, LongInt(@Tabulator));
  // Add some Items
    
  Listbox1.Items.add('Peter' + TAB + 'Meierhofer' + TAB + '1234-56' +
                   TAB + 'Otzlingen');
  Listbox1.Items.add('Johann Jones' + TAB + 'Krauter' + TAB + '123-45');
end;