[DELPHI-RUS]

Привет всем!!!
у меня проблема с прогой,которая должна побайтово прочитать файл , и поместить каждый байт в массив.
Но сколько бьюсь над ней ничего не выходит,то полностью читайт и в первую ячейку массива кладет,то один байт читает,или вообще не читает
Pliase ПОМОГИТЕ УМНЫЕ ЛЮДИ!!!!!!!!!!!!!!!!!!!!

Вот последний вариант сорса:

Код:

program DAVP;



uses
  windows;

var
   Pointer:TOFSTRUCT;
   BufferW:Array of Byte;
   BufferGFS:Array of Byte;
   hFile:THandle;
   D:Cardinal;
   BOW:Word;
   SFP:Word;
   i:integer;
begin
    hFile:=OpenFile('DAVP.dpr',Pointer,OF_READ);
    BOW:=GetFileSize(hFile,BufferGFS);
    SetLength(BufferW,BOW);
    SFP:=0;
    For i:=1 to BOW do
        begin
            SFP:=SetFilePointer(hFile,SFP,nil,0);
            ReadFile(hFile,BufferW[i],1,D,nil);
            WriteFile(OpenFile('Write.txt',Pointer,OF_CREATE),BufferW[i],BOW,D,nil);
            Inc(SFP);
        end;
end.

Еще его выложил: