Delete all spaces from string

Use DeleteSpaces function. For example:

Edit2.Text:=DeleteSpaces(Edit1.Text);

DeleteSpaces function is so:

function DeleteSpaces(Str: string): string;

var

i: Integer;

begin

i:=0;

while i<=Length(Str) do

if Str[i]=' ' then Delete(Str, i, 1)

else Inc(i);

Result:=Str;

end;