Поиск и удаление символов в тексте (Delphi)

[ekzobyte]

Программа, удаляет пробелы перед запятой и вставляет пробел после запятой, если его нет. Проблемка - работает только для первой запятой в тексте в Memo1. Как распространить действие на весь текст?

procedure TForm1.Button1Click(Sender: TObject);
 var
   s: string;
begin
 s := Memo1.Text;

 while s[pos(',', s) - 1] = ' ' do
   delete(s, pos(',', s)-1, 1);
 
 while s[pos(',', s) + 1] <> ' ' do
   insert(' ', s, pos(',', s)+1);  

 Memo1.Text := s;
end;

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
 var
   s: string;
   i,k : integer;
begin
 s := Memo1.Text;

 k:=1;
 while k<=length(s) do
  begin
  i := pos(',',copy(s,k,length(s)));
  if i=0 then break;
  if s[k+i] <> ' ' then
   begin
   insert(' ',s,k+i);
   inc(k);
   end;
  k := k + i;
  end;

 Memo1.Text := s;
end;

[Сергей089]

Функция POS ищет только первое вхождение

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
    s:string;
    flag:boolean;
begin
for i:=0 to memo1.Lines.Count-1 do
  begin
  s:=memo1.Lines.Strings[i];
  memo1.Lines.Delete(i);
  flag:=false;
  j:=1;
  while j<=length(s) do
    begin
    if s[j]=',' then begin
                     if s[j-1]=' ' then flag:=true;
                     if s[j+1]<>' ' then insert(' ',s,j+1);
                     end;
    while flag do
      begin
      delete (s,j-1,1);
      j:=j-1;
      if s[j-1]<>' ' then flag:=false;
      end;
    j:=j+1;
    end;
  memo1.Lines.Insert(i,s);
  end;
end;