procedure TForm_yhdl.ed_yhmmKeyPress(Sender: TObject; var Key: Char); begin if key = #13 then begin Button1.click(); end; end;