Ну, например, особо не заморачиваясь, так:
(Данный пример выведет весь текст, находящийся между "First_word" и "Second_word")
uses StrUtils;
...
function get_stext(First, Second, Where: string): string;
var
Pos1, Pos2: Integer;
WhereLower: string;
begin
First := LowerCase(First);
Second := LowerCase(Second);
WhereLower := LowerCase(Where);
Assert(Length(WhereLower) = Length(Where));
Pos1 := PosEx(First, WhereLower, 0);
Pos2 := PosEx(Second, WhereLower, Pos1);
Result := Copy(Where, Pos1 + Length(First), Pos2 - Pos1 - Length(First));
end;
var st: string;
begin
st := get_stext('first_word', 'second_word',
'123123 First_word <some text> 123123 elseFDFsdf 0123123 Second_word');
ShowMessage(st); // вывод " <some text> 123123 elseFDFsdf 0123123 "
end;