Все что после пробела заносим в переменную.

[celovec]

Подскажите пожалуйста, как быть с такой задачей:
Необходимо в edit1.text отслеживать имя "Андрей",
Тоесть если текст начинается с слова Андрей, и после него есть пробел и какие-то, символы необходимо показать допустим в label1.caption

Пример:
"Андрей 23 22"
В данном случае показываем в label1: "23 22":

Пробовал работать с Pos, но как-то не получилось.

[Whited]

if Pos('Андрей ',edit1.text)>0 then
label1.caption:=Copy(edit1.text,Pos('Андрей',edit1.text)+1,Length(edit1.text));

[Leo08]

Procedure doit(var s:string);
Var
S:string;
Begin
if Pos(' ',s)<>0 then 
Delete(s,1,pos(' ',s));
End;

[artemavd]

Leo08, и что твой код делает? ТС по-моему надо было копировать после слова, а у тебя идет удаление.

[Mad_Cat]

Leo08, и что твой код делает?

он как раз из

s='Андрей 23 22'

делает

s='23 22'

[celovec]

Думал справлюсь сам, но как-то мне не нравится этот мой код:
Полностью задача выглядит так. Есть 2 имени за которыми нужно следить Андрей и Вася. Если После пробела цифра больше 30 или меньше 1, или там какой-то текст то в label1.caption вписывается 10.

Вот мой пример:

if (Pos('Андрей ',edit1.text) >0) or (Pos('Вася ',edit1.text) >0) then begin
  label1.caption:=Copy(edit1.text,Pos('Андей',edit1.text)+1,Length(edit1.text));
  label1.caption:=Copy(edit1.text,Pos('Вася',edit1.text)+1,Length(edit1.text));
  if (inttostr(label1.Caption) > inttostr('30')) or (inttostr(label1.Caption) < inttostr('1')) then label1.Caption:='10';
end;

Попрвьте пожалуйста меня.

[artemavd]

Есть такие три замечательные функции, с их помощью можно легко вытаскивать из любого текста какие угодно значения.
Вот, держи:

//берет из текста участок текста, который заключен между первым словом (OpenTag) и любым другим (CloseTag). Работает блестяще.
function GetText1(OpenTag,aText,CloseTag:string):string;
begin
Result:=Copy(aText,AnsiPos(OpenTag,aText)+Length(OpenTag),AnsiPos(CloseTag,aText)-Length(CloseTag)-1);
end;

//берет весь текст до любого указанного символа (слова)
function GetBefore(substr, str:string):string;
begin
if pos(substr,str)>0 then
  result:=copy(str,1,pos(substr,str)-1)
else
  result:='';
end;

//берет весь текст после любого указанного символа (слова)
function GetAfter(substr, str:string):string;
begin
if pos(substr,str)>0 then
  result:=copy(str,pos(substr,str)+length(substr),length(str))
else
  result:='';
end;

[celovec]

Интересное решение. Спасибо, пригодится.
Но все таки хочется добить свой пример. Его можно как-то довести до ума?

Есть 2 имени за которыми нужно следить Андрей и Вася. Если После пробела цифра больше 30 или меньше 1, или там какой-то текст то в label1.caption вписывается 10.

if (Pos('Андрей ',edit1.text) >0) or (Pos('Вася ',edit1.text) >0) then begin
  label1.caption:=Copy(edit1.text,Pos('Андей',edit1.text)+1,Length(edit1.text));
  label1.caption:=Copy(edit1.text,Pos('Вася',edit1.text)+1,Length(edit1.text));
  if (inttostr(label1.Caption) > inttostr('30')) or (inttostr(label1.Caption) < inttostr('1')) then label1.Caption:='10';
end;