A simple quetion

From: Feza (------)
Date: 01/24/04 

Date: Sun, 25 Jan 2004 00:05:28 +0200

i defined below procedure in seperate unit in order to it from all forms'
DBEdit's evets.However, it gives me error on line "SelectNext".I could not
either be able to solve or understand that since i included almost all units
in uses clause.Hope that's clear to you..

FEZA

unit Geneller;
interface

uses windows, controls,dbgrids;

procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);

implementation

procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then Begin
 If HiWord(GetKeyState(VK_SHIFT)) <> 0 then
  SelectNext(Sender as TWinControl,False,True)
 else
  SelectNext(Sender as TWinControl,True,True);
  Key := #0
end;

end;
end.