[wrun]

Добрый день!

Никак не могу сообразить как сделать событие Результат закачки, но в консольном приложении. Раньше не сталкивался с подобным.
На данный момент ошибка:
access violation as 0x7c90e8e5: write of address 0x00030ff8. Proccess Stopped.

Код:

program WSms;
{$APPTYPE CONSOLE}

uses
  SysUtils,
  JvComponentBase,
  JvUrlListGrabber,
  JvUrlGrabbers,
  JvTypes,
  Classes;

type
  TObjectHandler = class(TObject)
    procedure HttpGrabberDoneStream(Sender: TObject; Stream: TStream;
      StreamSize: Integer; Url: string);
  end;

var
  tels, msg: string;
  HttpGrabber: TJvHttpUrlGrabber;
  FObjectEvent: TObjectHandler;
  ObjectEvent: TObjectHandler;

procedure TObjectHandler.HttpGrabberDoneStream(Sender: TObject;
  Stream: TStream; StreamSize: Integer; Url: string);
begin
  Writeln('Done:');
  Readln;
end;

begin
  try
    if true then
    begin
      FObjectEvent := TObjectHandler.Create;
      HttpGrabber.ProxyMode := pmManual;
      HttpGrabber.ProxyAddresses := 'proxy:8080';
      HttpGrabber.ProxyUserName := 'login';
      HttpGrabber.ProxyPassword := 'Pass';
      HttpGrabber.OutputMode := omStream;
      HttpGrabber.Url := 'http://url.ru';
      HttpGrabber.OnDoneStream := FObjectEvent.HttpGrabberDoneStream;
      HttpGrabber.Start;
    end;
    Writeln('Main:');
    Readln;
  except
    on E: Exception do
    begin
      Writeln(E.ClassName, ': ', E.Message);
      Readln;
    end;
  end;

end.