Algo parecido a esto:
Código Delphi
[-]
procedure TForm1.bt1Click(Sender: TObject);
const
cTexto = 'Esto es una sencilla';
cAbre = '<';
cCierra = '>';
var
iPosAbre, iPosCierra : integer;
begin
iPosAbre := Pos(cAbre,cTexto);
iPosCierra := Pos(cCierra,cTexto);
ShowMessage( Copy(cTexto,iPosAbre+1,(iPosCierra-iPosAbre)-1) );
end;
puedes convertirlo en una
function y devolver el texto