Delphi*

[Valik93]

Добрых суток,Помогите составить программу:
Работа с текстовым документом, нужно чтобы программа убирала все лишние пробелы в тексте.(в начале строки, в конце строки и между словами по одному).

[Mad_Cat]

memo1.lines.loadfromfile('text.txt');
s:=memo1.text;
s:=trim(s);
while pos('  ',s)<>0 do
delete(s,pos('  ',s),1);
memo1.text:=s;
memo1.lines.savetofile('text.txt');

[Valik93]

Спасибо за ответ