delphi 清理文本中的空格

//clear spaces
procedure del_space(var s:string);
begin
    while pos(' ', s) <> 0 do
    begin
        delete( s, pos(' ', s), 1);
    end;
end;



procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=memo1.Text;
del_space(s);
Memo2.Text:=s;
end;