델파이 HELP의 FileRead,example의 예제에 에러가 나요

뭐가 문제일까요

조언 부탁합니다



procedure TForm1.Button1Click(Sender: TObject);



var

iFileHandle: Integer;

iFileLength: Integer;

iBytesRead: Integer;

Buffer: PChar;

i: Integer;

begin

if OpenDialog1.Execute then

begin

try

iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);

iFileLength := FileSeek(iFileHandle,0,2);

FileSeek(iFileHandle,0,0);

Buffer := PChar(AllocMem(iFileLength + 1));

iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);

FileClose(iFileHandle);



for i := 0 to iBytesRead-1 do

begin

StringGrid1.RowCount := StringGrid1.RowCount + 1;

StringGrid1.Cells[1,i+1] := Buffer[i]; <---- 이부분에서 에러가 납니다

StringGrid1.Cells[2,i+1] := IntToStr(Integer(Buffer[i]));

end;

finally

FreeMem(Buffer);

end;

end;

end;