아래와 같이 Key 값을 0으로 만들어 주시면 됩니다.
그럼.. 도움 되시길...

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
  key := #0;
end;