。

方法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;