在你再后一个文本框里写
procedure Tform1.edit1keydown(..key:word;..)
begin
if key=#13 then
  
  要执行的内容