ดักกด Enter Delphi

[admin]

ทำการดัก Event OnKeyPress ใน Delphi  ว่ามีการ กด Enter หรือไม่?

Code:

procedure TFmSaleReporter_Kwan_.DBEdit1KeyPress(Sender: TObject;
  var Key: Char);
begin
if( Key = #13  ) then
  begin
     ShowMessage('x');
  end;
end;