tidhttpproxy in consolenprogramm

[easteregg]

heyho

ich wollt mir mal nen einfachen proxy schreiben, aber das gelingt mir noch nicht so richtig.
wie baut man die indy komponente in das consolenprogramm richtig ein, dass dieser dann auch ordentlich weiter läuft?
bisher siehts so aus, aber das klappt hinten und vorne nicht.

Delphi-Quellcode:

program proxy;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  IdHTTPProxyServer;

var
 IdHTTPProxyServer1: TIdHTTPProxyServer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
    IdHTTPProxyServer1.Create;
    IdHTTPProxyServer1.Active := true;


end.

wie muss sowas aussehen?