You can also just set Key to #0 as follows:

Code:
procedure TForm1.EditKeyPress(Sender:TObject; var Key : Char);
begin
  if Key = #13 then
    begin
      // Your processing here
      Key := #0;
    end;
end;