Checkbox in Stringgrid

[sephraina]

Hallo Zusammen,

ich weiss zu diesem Thema gibts schon einiges, aber ich hab da was aus dem Internet ausporbiert, das bei mir nicht so funktioniert wie es sollte. Vielleicht sieht jemand gleich den Fehler... (hoffentlich..)
Ich will eine Checkbox in jede Zeile in einer bestimmten Spalte einfügen in einem Stringgrid.
Diesen Code habe ich +/- aus: http://borland.newsgroups.archived.a...803046227.html übernommen.

Delphi-Quellcode:

procedure TForm2.InseretCheckBoxes(var Stringgrid1: TStringGrid);

var
    ChkBox : TCheckBox;
    i : Integer;
begin
  with Stringgrid1 do
    begin
      for i := 1 to 3  do  //einfach ein paar Zeilen
        begin
          Cells[5, i] := EmptyStr;
          ChkBox := TCheckBox.Create(Stringgrid1);
          with ChkBox do
            begin
              //Name := Format('ChkBox_%d_%d', [3, i]);
              //Caption := EmptyStr;
              Checked := False;
              Visible := True;
              Parent  := Stringgrid1;
              Width  := Height;
          end;

          Objects[5,i] := ChkBox;
        end;
    end;
end;

ok, es erscheint noch nichts auf meinem Stringgrid.
Dann fülle ich das Grid mit Daten und rufe am Ende noch diese Prozedur auf (Form2.InsertCheckboxes).
Endlich sehe ich eine Checkbox, leider aber nur im oberen linken Feld meines Stringgrids und nicht in der Spalte wo ich die chboxes wollte...

Hat jemand eine Idee woran das liegt?

Gruss und Danke

sephraina