Title: 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;