Ввести строку длиной до 30 символов, заменить в ней двойные символы на одиночные.

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
begin
s:=Edit1.Text;
 for i:=1 to length(s) do
  begin
  if (((s[i])='.') and ((s[i+1])='.')) then Continue;
  if (((s[i])='_') and ((s[i+1])='_')) then Continue;
  if (((s[i])=' ') and ((s[i+1])=' ')) then Continue;
  if (((s[i])='*') and ((s[i+1])='*')) then Continue;
  if ((s[i])=(s[i+1])) then Delete(s,i+1,1);
  s:=StringReplace(s,' ','_',[rfReplaceAll]);
  s:=StringReplace(s,'**','...',[rfReplaceAll]);
Edit2.Text:=s;
end;
 end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  i:integer;
begin
  s:=Edit1.Text;
  
  i:=2;
  While i<=Length(s) Do
  if (s[i]<>'*') And (s[i]<>' ') then
  if ((s[i])=(s[i-1])) then
  Delete(s,i,1) Else Inc(i) Else Inc(i);
 
  s:=StringReplace(s,' ','_',[rfReplaceAll]);
  s:=StringReplace(s,'**','...',[rfReplaceAll]);
  Edit2.Text:=s;
end;