Obavezan ENTER ili TAB taster

Code:

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Edit1Exit(Sender: TObject);
  private
    FCanLeaveControl: TObject;
  public
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Edit1Exit(Sender: TObject);
begin
  if Sender <> FCanLeaveControl then
    (Sender as TEdit).SEtFocus;
end;

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key in [VK_RETURN, VK_TAB] then
  begin
    FCanLeaveControl := Sender;
    if Key = VK_RETURN then
      SelectNext(ActiveControl, TRUE, TRUE);
  end
  else
    FCanLeaveControl := nil;
end;