{Para chamar uma tela ou realizar qualquer coisa via teclado usa-se a seguinte linha de comando no evento keypreview do form principal}
//no keypreview do form coloca-se true
procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); begin if key = #13 then begin
showmessage('Voce apertou no enter'); end; end;
