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