Leerzeichen in Edit1.Text verhindern

[Delphiturbo]

Hallo

wie kann ich Leerzeichen in Edit1.Text OnChange.Event verhindern ?

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
// habe ich einmal so gelöst
// if ... = ' ' then ... :=''
end;