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