Строковые типы Pos и Copy

var qwe : String;
begin
   qwe := Copy({Текст}, Pos('допистим', {Текст})+10, {Теперь как правильно определить его днину?});
end;

var qwe, stroka : String;
begin
   stroka := Edit1.Text;
   qwe := Copy(stroka, Pos('допистим', stroka)+10, {Теперь как правильно определить его днину?});
   memo1.Lines.Add(qwe);
end;

var qwe, stroka : String;
begin
   stroka := 'В нем есть набор букв цифр знаков и пробелов, допустим [B]XXX XXX XXX[/B] текст может меняться по длине. Задача найти этот текст и скопировать!';
   qwe := Copy(stroka, Pos('допистим', stroka)+10, {Теперь определяем днину! Как? Размеры и содержимое [B]XXX XXX XXX[/B] не известно});
   memo1.Lines.Add(qwe);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  qwe, stroka : String;
begin
   stroka := 'В нем есть набор букв цифр знаков и пробелов, допустим XXX XXX XXX текст может меняться по длине. Задача найти этот текст и скопировать!';
   qwe := Copy(stroka, Pos('допустим', stroka)+9, PosEx('текст может',stroka,Pos('может быт' ,stroka))-Pos('допустим', stroka)-9);
   memo1.Lines.Add(qwe);
end;

if pos('{Твой текст}',stroka)>0 then
qwe :='{Твой текст}'