В делфи нужно заменить группу пробелов одним. как считать сделал а изменить как незнаю

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
ListBox1: TListBox;
ListBox2: TListBox;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
t:textfile;
s,n:string;
i,p,r,h:integer;
m:array[1..10] of string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(t,'d:\file.txt');
reset(t);
s:='';
for i:=1 to 10 do
begin
readln(t,m);
s:=s+m;
ListBox1.Items.Add(m);
end;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ListBox1.Clear;
ListBox2.Clear;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

end.