Поиско в edit.text

[celovec]

Необходимо сделать условие если в edit1.text написано Andrei то условие должно срабатывать так же если после Andrei есть какой-то другой текст условие тоже должно срабатывать.

Попробовал реализовать это таким способом:

if (Pos('Andrei',edit1.text) >0) then *

Но это условие срабатывает и в том случае если и перед словом Andrei есть какой-то текст - чего недолжно происходить.

Подскажите что делать.

[Человек_Борща]

Учитыйвайте длинну слова.
Пиводите все к одному регистру.

if (Length(Edit1.text) = Length('Vasia')) and (Pos(LowerCase('Vasia'),LowerCase(Edit1.text))> 0) then

[fate]

if (Pos('Andrei',edit1.text)=1) then

[Человек_Борща]

fate, чем ваш код отличается от

 
if (Pos('Andrei',edit1.text)>0) then

По поводу:
Если в строке есть "вася" и до него что-то, есть условие не выполняется.
Если после "вася" есть что-то то условие выполняется.

По поводу первого, я вам во втором сообщении подсказал..
По поводу второго, то чуть по другому надо:

var
 i,i2:integer;
 s1,s2:string;

s1:=Edit1.Text;
s2:='Vasia';

if (Pos(LowerCase(s2),LowerCase(s1))> 0) then
begin
if (Length(s1) > Length(s2)) begin
begin
 for i:=1 to Length(s1) do
 begin
   for i2:=1 to Length(s2) do
   begin
      //Тут проверяем по символьно, находится ли наше слово вначале строки s1, если нет, то exit 
   end;
 end;
end;
end;

[fate]

тем что код

if (Pos('Andrei',edit1.text)>0) then

вернет true в любом случаи если в эдит присутствует Andrei, а код

if (Pos('Andrei',edit1.text)=1) then

вернет true если Andrei стоит первым в эдит т.е. перед Andrei нет больше символов никаких, вроде это нужно было ТС

[Человек_Борща]

Мдя а я и забыл что Pos возвращает.. :D

[chertovich]

const
  FindStr = 'Andrei';
begin
  if Copy(edit1.text, 1, Length(FindStr)) = FindStr then

[fate]

chertovich да зачем все усложнять? если pos прекрасно справляется с поставленной задачей

[celovec]

fate и Человек_Борща спасибо большое. Воспользовался примером fate.