BlockWrite problem

Problema cu scrierea unui bufer intrun file cu BlockWrite.am urmatorul record: type Tgldata=record ident,h1,h:integer; exedir:string; end;si un Tlist in care adaug pointerii de tip record(mai sus).La scriere nu apar erori.Iata si codul:var f:file; newd:^Tgldata;beginassignfile(f,ExtractFileDir(ParamStr(0))+'\binar.bin');rewrite(f);new(newd);for i := 0 to Lista.Count - 1 do begin newd:=lista[i]; blockwrite(f,newd^,1); end;dispose(newd); closefile(f);end;in fisier se scriu 128 byte, ceea ce imi pare ca sunt cam putini.Dar la citire da eroare. Poate cineva sa imi arate problema ?Thank's !!!am uitat: la + un i:integer;