Viendo nuevamente una de las funciones de pink intente hacerla en pascal asi que me fui a la referencia de autoit sobre la funcion original y me di cuenta que esta funcion extrae una cadena desde un valor incial y extrae tato caracteres como queramos aunque se pase del tamaño de la cadena

pero no me gusto mucho eso en cambio esta version extrae desde un rango x a un rango y pero obviamente x nunca sera mas grande que y bueno meno charla y les dejo esto

function StrMid(cadena:string; ini:integer; fin:integer):string;
  var
  i:integer;
  Sfinal:string;
  begin
     Sfinal:='';
     if (ini<=fin) and (fin<=length(cadena)) and (ini>=1) then
     begin
        for i :=ini  to fin  do
        begin
          Sfinal:=Sfinal+cadena[i]
        end;
     end;
   result:=Sfinal;
  end;

te quedo muy buena.

Saludos