Funciones String

[Casimiro Notevi]

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