Delphi ile String teki Tüm Boşlukları Silme (Space)

Delphi ile string teki yada edit.Text teki boşluk(space) leri silmek için kullanabileceğiniz fonksiyon aşağıdaki gibidir.
Kullanımı ise şöyle ;
Edit3.Text:=DeleteSpaces(Edit2.Text);

Fonksiyonumuz ve satır açıklamaları :  

function DeleteSpaces(Str: string): string;
var
  i: Integer;
begin
  i:=0;
  while i<=Length(Str) do //str uzunluğu kadar yap 
    if Str[i]=' ' then Delete(Str, i, 1) //Eğer boşluk varsa sil
    else Inc(i);
  Result:=Str; //temizlenmiş string i ver
end;