Afficher des largeurs de colonnes différentes dans un TListBox

procedure TForm1.Button2Click(Sender: TObject);
Const
// Le nombre maxi. de 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;