Fjern mellemrum i Delphi-streng

Hejsa

Jeg er ved at lave et program der kan fjerne alle mellemrum i en tekst skrevet i en editboks. Teksten (uden mellemrum) flyttes derefter over i en memoboks. Dette er hvad jeg har skrevet, men programmet kører ned, og et eller andet er helt galt, men jeg kan ikke gennemskue hvad det er. Jeg håber der er nogen der kan hjælpe.

På forhånd tak.

var
  Form1: TForm1;
  S : String;
  I : Integer;
implementation

{$R *.DFM}

procedure TForm1.ButtonClick(Sender: TObject);
begin
    S :=  Edit.text;
    Trimleft(S);
    Memo.Clear;
    While S <> \' \' do
          I := 1;
          begin
          While (I<=Length(S)) AND (S[I] <> \' \') do
                begin
                Memo.Lines.Add(Copy(S,1,I));
                Delete(S,1,I);
                S := Trimleft(S);
                Inc(I);
                end;
          end;
End;

end.