Problem mit record

[The_ New_Guy]

assignd funktioniert allerdings geht der code nicht richtig . . .
also ich versuche alle Zellen in einem Stringgrid mit font und color eigenschaften zu belegen.
mit color funktioniert das wunderbar - allerdings nicht mit font.

Delphi-Quellcode:

procedure Temaske_excel.Schriftartbearbeiten1Click(Sender: TObject);
begin

if Assigned(ca1[stringgrid1.Col,stringgrid1.Row].font) then
  fontdialog1.Font := ca1[stringgrid1.Col,stringgrid1.Row].font
else
  fontdialog1.Font := stdfont;

if fontdialog1.Execute then
begin
  ca1[stringgrid1.Col,stringgrid1.Row].font := fontdialog1.Font;
end;

end;

das problem : wenn ich eine zelle anklicke, das popupmenü öffen und denn auf 'schriftarten bearbeiten' klicke wird der font wert stdfont nicht richtig in den fontdialog1 eingefügt.
der fontdialog1 sollte dann doch eigentlich stdfont anzeigen, oder?

in der oncreate definiere ich stdfont so:
stdfont := Fontdialog1.font;