procedure TfrmItemEdit . Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key =# 13 then begin Key := # 0 ; Perform( 40 , 0 , 0 ); end ; end ;