[YVitaliy]

Код:

var s:string;
i:integer;
begin
  s:=Edit.Text;
  i:=1;
  while i<=length(s) do
   begin
     inc(i);
     if s[i]=',' then
       if Edit.SelStart<>0 then
       begin //
         Delete(s,i,1); //
         if Edit.SelStart>=i then
         Edit.SelStart:=Edit.SelStart-1;
       end;
   end;
  if Edit.SelStart<>0 then //
  Insert(',',s,Edit.SelStart+1); //
  Edit.Text:=s;