Http fetch debug

Hello!

Nedenstående kode vil ikke compileres, håber i har en løsning.
Det skal siges at det er godt 2 år siden jeg sidst lavede noget i Delphi så fejlen kan snildt skyldes en eller anden lame fejl :) Her er koden:

procedure TSrvList_Main.But_GetListClick(Sender: TObject);
    const
      BufferSize = 1024;
      URL = 'http://www.safl.dk/test.php';
    var
      hSession, hURL: HInternet;
      Buffer: Array[0..Pred(BufferSize)] of Byte;
      BufferLength: DWORD;
      f: File;
      OutputFile: String;
    begin

      hSession := InternetOpen('ServerlistClient: http://www.safl.dk/',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
      try
        hURL := InternetOpenURL(hSession, PChar(URL), nil,0,0,0);
        try
          Assing(f, OutputFile);
          Rewrite(f,1);
          repeat
            InternetReadFile(hURL, @Buffer, BufferSize, BufferLength);
            Status.Panels[0].Text :=  Status.Panels[0].Text + '.';
            BlockWrite(OutputFile, Buffer, BufferLength)
          until BufferLength = 0;
          Close(OutputFile);
          Status.Panels[0].Text :=  Status.Panels[0].Text + 'WE GOT IT!';
        finally
          InternetCloseHandle(hURL)
        end
      finally
        InternetCloseHandle(hSession)
      end
    end;

På forhånd tak :)