du musst einfach die taste verwerfen, desweiteren hast du wohl das "begin-end" vergessen
Delphi-Quellcode:
procedure TForm1.SearchEditKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
begin
form1.SearchButtonClick(self);
key := #0;
exit; //ist eignetlich überflüßig da die funktion ja schon am ende ist und nichts mehr hinter dem exit steht - also machs einfach weg.
end;
end;