[Delphi] Jak usunąć wszystkie spacje lub litery (np.a)

Wszystko już jest w tytule, a dokładniej w richedit jest jakiś tekst w po wpisaniu w edit litery a oraz nacisnięiu przycisku z richedit znikają wszystkie te litery?

var
s: string;
p: Integer;
begin
s:=RichEdit1.Lines.Text;
p:=Pos(' ', s);
while p 0 do begin
Delete(s, p, 1);
p:=Pos(' ', s)
end;
RichEdit1.Lines.Text:=s
end;