Wesley dos Santos Elbacha

procedure Tform1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then
btnSair.OnClick(Self);

if Key = #13 then
Begin
Key:= #0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;