⤷ 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;
More for developers