StringGrid Objects: Warum geht das nicht?

[guidobrose]

Hallo zusammen,

ein kleines Problem: Ich experimentiere gerade damit herum die Objects des StringGrid zu verwenden und zwar möchte ich im Grid festhalten, ob eine Row des Grid als Vorschlagswert verwendet wird (Daten kommen aus einer DB) und sobald der Benutzer das Grid anklickt soll die Row als Ausgewählt markiert werden. Hier mal ein paar Codeschnipsel:

Delphi-Quellcode:

//Der Objekttyp für das Grid
type
  TStellplatz = class(TObject)
    private
      Suggested: boolean;
      Selected: boolean;
      end;

//Hier wird das Objekt dem Grid (immer Spalte 0) zugeordnet
procedure TFrmLlesy.AnmeldungAddStellplatzToGrid;
var
  AObject : TStellplatz;
begin
  AObject:=TStellplatz.Create;
  AObject.Suggested:=IsSuggested;
  AObject.Selected:=false;
  StrngGrdAnmeldungStellplaetze.Objects[0,ARow]:=AObject;
end;

//Hier wird geprüft, ob das Bit Suggested gesetzt ist
function TFrmLlesy.AnmeldungStellplatzSuggested;
begin
if StrngGrdAnmeldungStellplaetze.Objects[0,ARow]<>nil then
  result:=TStellplatz(StrngGrdAnmeldungStellplaetze.Objects[0,ARow]).Suggested
else
  result:=false;
end;

//Hier wird geprüft, ob das Bit Selected gesetzt ist
function TFrmLlesy.AnmeldungStellplatzSelected;
begin
if StrngGrdAnmeldungStellplaetze.Objects[0,ARow]<>nil then
  result:=TStellplatz(StrngGrdAnmeldungStellplaetze.Objects[0,ARow]).Selected
else
  result:=false;
end;

//Hier wird das Grid zum ersten Mal befüllt
...
AnmeldungAddStellplatzToGrid(ARow,ADOQry.FieldByName('stv').AsInteger>0);
...

//Hier ein Ausschnitt aus der OnDrawCell Routine
...
  if ACol=1 then
    begin
    Canvas.Brush.Color:=clBtnFace;
    Canvas.FillRect(Rect);
    if AnmeldungStellplatzSuggested(ARow) then
      begin
      ImgLst.GetBitmap(6,AImage);
      Canvas.StretchDraw(Rect,AImage);
      end;
    if AnmeldungStellplatzSelected(ARow) then
      begin
      ImgLst.GetBitmap(7,AImage);
      Canvas.StretchDraw(Rect,AImage);
      end;
    end;

//Hier soll beim Klicken des Grid Selected zugewiesen werden
procedure TFrmLlesy.StrngGrdAnmeldungStellplaetzeClick(Sender: TObject);
begin
(StrngGrdAnmeldungStellplaetze.Objects[0,StrngGrdAnmeldungStellplaetze.Row] as TStellplatz).Selected:=true//not (StrngGrdAnmeldungStellplaetze.Objects[0,StrngGrdAnmeldungStellplaetze.Row] as TStellplatz).Selected;
end;

Das Einfügen der Grafik in das Gitter bei Suggested funktioniert so perfekt, wenn ich gleich am Anfang auch Selected auf True setzte dann wird auch korrekt die andere Grafik angezeigt. Es scheint also am Klickereignis des Gitters zu liegen. Ich habe da jetzt schon alle möglichen Sachen probiert, aber irgendwie klappt es nicht. Warum???

Danke und Gruß, Guido