Использование проц. KeyDown для DBGrid

[Максим_Леонидович]

Я не программист, а просто самоучка. Пытаюсь сотворить мою первую программу.
Необходимо следующее: После того как в форме1 я выбираю в ДБГриде строку, нажимая на ентер должна открыться вторая форма, в которой производятся различные манипуляции с данными из той строки, которая была выделена. Я попытался использовать следующее:

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = 13) then
form2.Visible := true;
Form2.show;
end;

Вместо этого, как только я пытаюсь перемещаться по таблице ДБГрида клавишами вверх, вниз сразу запускается вторая форма, хотя я не нажимал ентер.

прошу прощения за возможно глупый вопрос

[NikLik]

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = 13) then begin
form2.Visible := true;
Form2.show;
end;
end;

[Terran]

Все когда то учатся)

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
Form2.show;
end;

[Максим_Леонидович]

Большое спасибо!! Все гениальное просто!