。

方法1：感谢 QQ1949223 分享代码
procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
 s,t:string;
begin
i:=1;
t:='';
edit1.Text:=edit1.Text+' ';
while i<=length(edit1.Text) do
begin
  if t <> copy(edit1.Text,i,1) then
  begin
    memo1.Lines.Add(s);
    t:=copy(edit1.Text,i,1);
    s:=t;
  end
  else
  begin
    s:=s+t;
  end;
  i:=i+1;
end;
end;



方法2：
procedure TForm7.Button1Click(Sender: TObject);
var
  s, s1: string;
  i: Integer;
  a, prea: Char;
begin
  s := Trim(Edit1.Text);

  for i := 0 to Length(s)  do
  begin
    a := s[i];
    if prea <> a then
    begin
      //对比不同
      Memo1.Lines.Add(s1);
      s1 := '';
    end;
    s1 := s1 + a;
    prea := a;
  end;
  Memo1.Lines.Add(s1);

end;