Помогите решить в делфи задачу со строками.

[Света.]

Дана S – строка символов длиной n. Выяснить, имеется ли среди символов строки пара соседствующих одинаковых символов.

procedure TForm1.btn1Click(Sender: TObject);

    var s: string ;

begin
 s:=(edit1.text);

 if
 (Pos('.', s) <> 0) and (Pos(',', s) <> 0)and (Pos('!', s) <> 0)vand (Pos('!', s) <> 0)
 then
 Edit2.text:= 'да'
 else
 Edit2.text:= 'нет'
end;

end.

Только в такой последовательности выдает ответ 'да' ,т.е имеется,как сделать ,чтобы в любой последовательности где встречаются два одинаковых соседних символа выдавался ответ 'да'
помогите,пожалуйста,буду очень благодарна!

[type_Oleg]

Не понял задание.
Надо, чтобы если Света - то нет, а если Свеета или Света !! - то да ?

Или нужно, чтобы соседствовали только символы . , ! ?

Ну вообщем, предлагаю так:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
   i:Integer;
begin
 s:=Edit1.Text;
 for i:=1 to Length(s)-1 do
  if s[i]=s[i+1] then
   begin
    Edit2.Text:='есть ';
    Exit;
   end;
 Edit2.Text:='нет';
end;