BlockWrite(UnTypedFile,Buffer,1,NumWritten); //此句为什么出错

Question

这段代码为什么出错：
procedure TForm1.WriteClick(Sender: TObject);
var
 UntypedFile : file;
 buffer : array[0..128] of byte;
 NumRecsRead : integer;
begin
 AssignFile(UnTypedFile,ExtractFilePath(Paramstr(0))+'somefile11.dat');
 if fileExists('somefile11.dat') then
 Reset(Untypedfile)
 else
 Rewrite(Untypedfile);
 try
  seek(UntypedFile,FileSize(UnTypedFile));
  FillChar(Buffer,Sizeof(Buffer),'Y');
  BlockWrite(UnTypedFile,Buffer,1,NumWritten); //此句为什么出错
 finally
  closeFile(UnTypedFile);
 end;
end;

Answer 1

BlockWrite(UnTypedFile,Buffer[1],1,NumWritten);

Answer 2

你NumWritten定义了吗
var NumWritten:integer;
错误提示？