Problem bei create eines Gauges in einer Listview-Komp?

[Plague]

Hallo,

ich habe aus Luckies Demo folgenden Code soweit angepasst, dass er eigentlich funktionieren sollte, aber es klappt einfach nicht.
Ich möchte auf Buttonclick eine Gauge-Komponente in einem Listview Fenster erzeugen lassen.
Dazu nutze ich folgenden Code:

Delphi-Quellcode:

var
  MyButton: array of TGauge;

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
  setlength(MyButton, Listview1.Items.Count);
  for i := 0 to ListView1.Items.Count - 1 do
  begin
    MyButton[i] := TGauge.Create(ListView1);
    MyButton[i].Parent := Listview1;
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Listview1.Items.Add.Caption := 'Test';
end;


procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
 var
  i: Integer;
begin
  setlength(MyButton, Listview1.Items.Count);
  for i := 0 to Listview1.Items.Count - 1 do
  begin
    MyButton[i].Parent := Listview1;
    MyButton[i].Left := Listview1.Left + Listview1.Columns.Items[0].Width;
    MyButton[i].Top := 18 + i * 14;
    MyButton[i].Height := 12;
    MyButton[i].Width := ListView1.Columns[1].Width;
    MyButton[i].Tag := i;
  end;
end;
end.

Das MyButton habe ich aus faulheit nicht geändert. Es müsste eigentlich MyGauge heißen ;)

Danke
Thomas