buscar dentro de una cadena con repetición

[jzginez]

Gracias delphi.com.ar
mi codigo quedo

Código Delphi [-]
procedure TDemoCombo.SpinEdit1Change(Sender: TObject);
Var
  temp, cadena: String;
  posicion, i: Integer;
begin
  Valores:= SpinEdit1.Value;
  cadena:= Combo.Items.Strings[0];
  temp:= '';
  i:= 1;
  while i <= Valores do
    Begin
     posicion:= pos('|',cadena);
     if posicion <> 0
      Then Begin
        Temp:= temp + copy(cadena,1,posicion);
        delete(cadena,1, posicion);
      End
      Else temp:= cadena;
     i:= i + 1;
    End;
  valor.Caption:= IntToStr(length(temp));
end;

Ahora solo me queda cambiarlo para que quede como funcion

[jzginez]

Se me olvidava, PosEx no lo pude usar debido a que el texto entre los PIPE ('|' si no entendi mal) es de tamaño variable desde un solo caracter asta n caracteres y no conosco el tamaño debido a que el usuario es el que captura estos.

[delphi.com.ar]

Empezado por jzginez

Se me olvidava, PosEx no lo pude usar debido a que el texto entre los PIPE ('|' si no entendi mal) es de tamaño variable desde un solo caracter asta n caracteres y no conosco el tamaño debido a que el usuario es el que captura estos.

Pero puedes ir acumulando la posición, y cortar la cadena al momento de utiliza PosEx!