[NightVisor]

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  ReadBuffer = 2400;
var
  buffer: PChar;
  buf: string;
  readb: DWord;
begin
  hfile:=CreateFile(PChar(ExtractFilename(ParamStr(0))+'original.hashtable'),GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
  Repeat
    ReadFile(hfile, Buffer[0], READBUFFER, readb, nil);
    Buffer[readb]:=#0;
    OemToAnsi(Buffer, Buffer);
    Memo1.Text:=Memo1.Text+String(Buffer);
  until (readb<READBUFFER);
end;

Ругается на память...
ему не нравиться
Buffer[readb]:=#0
-(((

в чем ошибка???