error raro en dbgrid

[[gluglu]]

Código Delphi [-]
procedure TForm.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_down then begin
    StringGrid1.row := Query3.Recno; 
    Key := 0;
  end;
end;