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;