Listbox Spalten mit unterschiedlich weiten Tabulatoren anzei

[BillieJoe90]

Hallo,
nach diesem Tutorial habe ich folgenden Code zusammengebastelt:

Delphi-Quellcode:

var i:Integer;
const
  // The maximum number of Tabs
  // Die Anzahl der maximal aufretenen Tabs eintragen
  MAX_TABS = 4;
  Tab = #9;
var
  Tabulators: array[0..MAX_TABS] of Integer;
begin

  for i:=0 to 10 do begin
    Tabulators[0] := 70;
    Tabulators[1] := 120;
    Tabulators[2] := 100;
    Tabulators[3] := 80;
    lstPlaylist.TabWidth := 1;
    SendMessage(lstPlaylist.Handle, LB_SETTABSTOPS, MAX_TABS, Longint(@Tabulators));
    lstPlaylist.Items.Add('Peter' + Tab + 'Meier' + Tab + '1234-56' + Tab + 'Otzlingen');
    lstPlaylist.Items.Add('Johann Jones' + Tab + 'Krauter' + Tab + '123-45');
  end;

Die Schleife gibt natürlich EIGENTLICH keinen Sinn, aber der "Kontext" würde hier nur verwirren...

Aber es funktioniert nicht!
Wenn ich es in eine Button-OnClick-Methode hineinschreibe, funktioniert es komischerweise. Die Methode oben wird aber 100%ig aufgerufen, denn andere Dinge in der Metzhode werden auch ausgeführt...

Sehr sehr komisch, da es ja wie gesagt "unter anderen Umständen" ohne Probleme klappt...

Weiß irgendwer eine Lösung?

Ich sag schonmal Vielen Dank!

Johannes