function FileToString(nf:string):string;
var
     FromF: File;
     NumRead: Integer;
     buf: Array[1..2560] of Char;
     tmp: string;
begin
     tmp:='';
     AssignFile(FromF, nf);
     Reset(FromF, 1);
     while not eof(FromF) do
     begin

        filemode:=0;
        BlockRead(FromF, buf, 2560, numread);
        filemode:=2;
        tmp:=tmp+copy(buf, 1, numread);

     end;
     closefile(FromF);
     result:=tmp;
end;