Eliminar espacio

[quetzal]

y si hicieras algo asi
var
x:byte;
r,r2:string;
begin
x:=1;
r:=Edit1.Text;
r2:='';
while (length(r)>=x) do
begin
if (r[x]<>' ') then
r2:=r2+r[x];
inc(x);
end;
Edit2.Text:=r2;
end;