[march]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 s:string;
 i,qu:integer;
begin
 qu:=0;
 s:=edit1.text;
 for i:=1 to length(s) do
  begin
   if copy(s,i,1)=copy(s,i+1,1) then
    qu:=qu+1;
  end;
 showmessage('Одинаковые соседние цифры встречаются: '+inttostr(qu)+' раз.');
end;

оно?