[pesi]

на первый вопр.

Код:

var
  s1,s2,s3:string;
  i,p, position : Integer;
begin
p:=0;
s1:=edit1.Text; //что ищем
s2:=edit2.Text; //в чем ищем
for i := 1 to Length(s2) do
begin
s3:=Copy(s1, i, 1);
position := ansiPos(s3, s2);
if position <> 0  then
inc(p);
end;
if p>0 then
ShowMessage('Верно')
else  ShowMessage('Не верно');
end;