StringReplace arbeitet nicht

[DarK.The.KiD]

Hi

ich habe folgendes Problem:
Ich will aus einem EditFeld alle Leerzeichen rausfiltern. Dazu habe ich StringReplace und die Tastenabfrage für key=#32 genommen:

Delphi-Quellcode:

procedure TFormNew.EditNameChange(Sender: TObject);
begin
 StringReplace(EditName.Text,' ','',[rfReplaceAll,rfIgnoreCase]);
end;

procedure TFormNew.EditAstroNameChange(Sender: TObject);
begin
 StringReplace(EditAstroName.Text,' ','',[rfReplaceAll,rfIgnoreCase]);
end;

procedure TFormNew.EditNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=32 then key:=0;
end;

procedure TFormNew.EditAstroNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=32 then key:=0;
end;

Ich kann trotzdem nach Belieben Leerzeichen eintippen.
Woran liegts?