Recorrer y Cortar String

[octalh]

Hola a todos, les comento, tengo el siguiente problema.

Cuento con una funcion split para cortar partes de una string

function TForm1.CopyEntre(Cadena:string; Desde,Hasta:string):string;
var
Inicio,Final: integer;
begin
  Inicio:=Pos(Desde,Cadena)+Length(Desde);
  Final :=PosEx(Hasta,Cadena,Inicio);
  If (Inicio>0) and (Final>Inicio) then Result:=Copy( Cadena, Inicio, Final-Inicio );
end;

funciona bastante bien pero tengo el problema que necesito cortar varias veces una sola string y no entiendo muy bien el bucle para hacerlo

supongamos que quiero cortar la siguiente cadena

cadena : string;
cadena := '+hola-xxxxx+como-xxxxx+estas-';

usaria la funcion split para obtener "hola"

trozo :string;
trozo := CopyEntre(cadena,'+','-');

esto me daria "hola"
pero como corto lo demas de la string para obtener hola como estas ??

Bueno gracias po su ayuda