[wrun]

Добрый день!

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

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';       <b>HttpGrabber.OnDoneStream := FObjectEvent.HttpGrabberDoneStream;</b>       HttpGrabber.Start;     end;     Writeln('Main:');     Readln;   except     on E: Exception do     begin       Writeln(E.ClassName, ': ', E.Message);       Readln;     end;   end;   end.