在keypress事件下:procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);beginif key=chr(13) then 你要的过程名end;