Überschreib-Funktion von Zeichen im TEdit-Feld

[Ginko]

Hi ich habs mal so versucht:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  tmp := chr(Key);
  Key := 127;
end;


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Key := tmp;
end;

klappt aber nicht....