Funcion callback o

[julyus]

Código Delphi [-]
type
  TextFile = ^Text; esto lo encontre en internet y slucionaba el error
  cbkParmsCrystal = procedure(var posStoredProcs, posCrystalProcs: integer
    ; titulo: string) of object;
  cbkConfigFile = function(var f: TextFile; var st: string): integer of object;

compilo y encuentro esto es incompatible tipes en F si es de tipo text

Código Delphi [-]
function leaLinea(var f: TextFile; var texto: string): boolean;
var
  comentario: boolean;
begin
  repeat
    if eof(F) then
    begin
      texto := KS_FIN_DE_ARCHIVO;
      comentario := false;
    end
    else
    begin
      readln(F, texto);
      comentario := (trim(texto) = '') or (copy(trim(texto), 1, 2) = '::');
    end;
  until not comentario;
  texto := StringReplace(texto, #9, '     ', [rfReplaceAll]);
  texto := trim(texto);
  result := copy(texto, 1, 1) = '[';
end;

o me agradaria saber TextFile por que lo puedo cambiar
en una funcion antes me salia internal error TI894 que sucedia dento de una funcion del ripo que estoy creando ?? alguien le ha pasado esto ???