Text in Gridzelle ersetzen

[MarkSE]

Hallo, hier wieder ein Neuling

warum funktioniert bitte folgendes nicht:
in einem Grid soll mit F5 ein Text in der aktiven Zelle erscheinen.

Delphi-Quellcode:

procedure TfrmKarte3.GrdKarte3KeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if key= VK_F5 then
with GrdKarte3 do
Cells[col,row]:='er hat in dieser Zelle F5 gedrückt';

end;

Es passiert aber nichts. ich hab vieles hier gelesen und ausprobiert, leider ohne Erfolg