edit [Usuwanie spacji]

Jak usunąć spacje w edit?

var
s : string;
i : integer;
begin
s := edit1.text;
for i:=0 to length(s) do
begin
delete(s,pos(' ',s),1);
end;
edit1.text :=s;
end;

procedurka prosto z artykulu o lancuchach( http://www.4programmers.net/delphi/lancuchy.html ) :)

var
S : String;
begin
S := 'Tekst zawierający spacje';
while Pos(' ', S) > 0 do
Delete(S, Pos(' ', S), 1);
ShowMessage(S);
end;---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ lks16@tenbit.pl ]=-