Удаление кратных пробелов

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    lbl1: TLabel;
    edt1: TEdit;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    edt3: TEdit;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   s1,s2:string;
 z,i,k:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
begin
 s1:=edt1.text;
  for i:=1 to length(s1) do
  if(s1[i]=' ')  then begin
                       k:=i+1;
                        while(s1[k]=' ')do begin
inc(z); inc(k);
delete(s1,i+1,z+1);
  edt3.Text:=s1;
      end;
end;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
edt1.Clear;  edt3.Clear;
end;
 
procedure TForm1.btn3Click(Sender: TObject);
begin
Close;
end;
 
end.

function DelDubSpace(S_S:string):string;
var
i:Integer;
S,Old:Char;
Pos_:Integer;
Ignor:Boolean;
 
begin
Pos_:=1;
Old:=' ';
Ignor:=true;// Ïîäæèìàíèå ïîêà íå íóæíî
for i:=1 to Length(S_S) do begin
S:= S_S[i];
//Ýòî äóáëü. Èãíîðèðóåì åãî.
if (S = ' ') and  (Old = ' ') then begin
                                    Ignor:= False;
                                    Continue;
                                   end;
                                   
                                   //Óíè÷òîæåíèå ïðîáåëà â êîíöå ñòðîêè
                                   //ìíîãîñòðî÷íîãî òåêñòà
                                    if (S = Chr($d)) and  (Old = ' ') then begin
                                    Ignor:= False;
                                    Pos_:= Pos_- 1;
                                   end;
                                   
if not Ignor then S_S[Pos_]:=S;
Pos_:= Pos_+1;
if (S = Chr($d)) or  (S = Chr($a)) then Old:= ' ' else Old:= S;
                           end;
 
 
if S_S[Pos_ -1]=' ' then  SetLength(S_S,Pos_-2) else SetLength(S_S,Pos_-1);
 
 
Result:= S_S;
end;