Funcion split en Delphi

[JuanOrtega]

te agradezco mucho la ayuda ecfisa , al parecer tengo un problema con la funcion porque cuando pide char la variable del delimitador me da un error cuando uso un string intente usar un pchar() pero sigue dando el error , probe cambiando el valor delim de char a string para hacerlo funcionar y poder leer los datos del ejecutable pero se estanco todo el programa en esta parte :

Código Delphi [-]
    p:= Pos(Delim, Cadena);

No tira ningun error solo queda esperando en esa linea.

El codigo :

Código Delphi [-]
type
  TVecStr = array of string;

procedure Split(Cadena: string; const Delim: string; var vec: TVecStr);
var
  p: Integer;
begin
  Cadena:= Cadena + Delim;
  while Length(Cadena) > 0 do
  begin
    p:= Pos(Delim, Cadena);
    if p = Length(Cadena) then
      SetLength(Cadena, Length(Cadena)-1);
    SetLength(vec, Length(vec)+1);
    vec[High(vec)]:= Copy(Cadena, 1, p-1);
    Delete(Cadena, 1, p);
  end;
end;


var texto,todo:string;
    TodoArray: TVecStr;
    delimitador:string;
begin

delimitador := 'delimitador';

todo := read_file(paramstr(0));

Split(todo,delimitador,TodoArray);

Writeln(TodoArray[1]);

Estoy usando este codigo para leer los datos del login de mi agenda que tengo generados desde el instalador en mi ejecutable para poder leerlos y comprobar los datos.