[angvelem]

Код:

...
  if open1.Execute then
  begin
    for i:=0 to open1.Files.Count-1 do
    begin
      f:=TFileStream.Create(open1.Files[i],fmOpenRead);
      try
        f.Seek(67,sofromBeginning);
        f.Read(Npr,sizeof(npr));
        f.Seek(72,sofromBeginning);
        f.Read(Npk,sizeof(npk));

        Nprtr:=Npr[0]*256*256+Npr[1]*256+Npr[2];
        Nprtr:=Nprtr+Npr[3]/256+Npr[4]/256/256;
        Npktr:=Npk[0]*256*256+Npk[1]*256+Npk[2];
        Npktr:=Npktr+Npk[3]/256+Npk[4]/256/256;
        list:= lv1.Items.Add;
        list.Caption:=extractfileName(open1.Files[i]);
        list.SubItems.add(floattostr(Nprtr));
        list.SubItems.Add(floattostr(Npktr));
        list.SubItems.Add(extractfiledir(open1.Files[i]));
      finally
        f.Free;
      end;
    end;
  end
...

Так не пробовал?