Modtage fil via TClientSocket

Jeg prøver på at modtage en fil via TClientSocket, men det virker ikke rigtig..

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  buf: array [0..5000] of byte;
  fil: file of byte;
  br:  longint;
begin;
  assignfile(fil,'c:\test.txt');
  rewrite(fil);
  repeat
    br:=socket.receivebuf(buf,5001);
    blockwrite(fil,buf,br);
  until (br=0);
  closefile(fil);
end;

Når den har modtaget de første bytes kommer den med en EInOutError: "I/O error 998" ... jeg har fundet frem til denne fejl beskrivelse, men den hjælper mig ikke meget: "Invalid access to memory location".
På forhånd tak!