program Project1;
//файл ресурсов (иконка и проч.)
{$R *.res}

//используем инди-модуль
uses IdHTTPProxyServer;

const
//title нашего класса
  WND_TITLE  = 'PSrv';
//имя нашего класса
  WND_CLASS  = 'PSrv';
  user32     = 'user32.dll'; 

//вызываемые API-функции
  function RegisterClass(lpWndClass: Pointer): Cardinal; stdcall; external user32 name 'RegisterClassA';
  function GetMessage(lpMsg: Pointer; hWnd, wMsgFilterMin, wMsgFilterMax: Cardinal): boolean; stdcall; external user32 name 'GetMessageA';
  function TranslateMessage(lpMsg: Pointer): Boolean; stdcall; external user32 name 'TranslateMessage';
  function DispatchMessage(lpMsg: Pointer): Integer; stdcall; external user32 name 'DispatchMessageA'
  function DefWindowProc(hWnd, Msg: Cardinal; wParam, lParam: Integer): Integer; stdcall; external user32 name 'DefWindowProcA';
  procedure PostQuitMessage(nExitCode: Integer); stdcall; external user32 name 'PostQuitMessage';

//обработчик сообщений
function WndProc(hwnd, message: Cardinal; wParam, lParam: Integer): Integer; stdcall;
begin
  if message = $0002 then
  begin
    PostQuitMessage(0);
    Result := 0;
  end else
    Result := DefWindowProc(hwnd, message, wParam, lParam);
end;

var
//структура wnd
  wnd : packed record
    style         : Cardinal;
    lpfnWndProc   : Pointer;
    cbClsExtra    : Integer;
    cbWndExtra    : Integer;
    hInstance     : Cardinal;
    hIcon         : Cardinal;
    hCursor       : Cardinal;
    hbrBackground : Cardinal;
    lpszMenuName  : PAnsiChar;
    lpszClassName : PAnsiChar;
  end = (
    lpfnWndProc   : @WndProc;
    hbrBackground : 0;
    lpszClassName : WND_CLASS);


var
//определяем прокси-сервер
   IdHTTPProxyServer1: TIdHTTPProxyServer;
//структура msg
   msg : packed record
    hwnd    : Cardinal;
    message : Cardinal;
    wParam  : Integer;
    lParam  : Integer;
    time    : Cardinal;
    X, Y    : Integer;
  end;

begin
//регистрируем класс wnd
  RegisterClass(@wnd);
//создаём прокси-сервер
  IdHTTPProxyServer1:=TIdHTTPProxyServer.Create;
//указываем порт, по какому он будет доступен
  IdHTTPProxyServer1.DefaultPort:=81;
//запускаем прокси-сервер
  IdHTTPProxyServer1.Active:=true;
//приём сообщений структуры msg и их трансляция
    while GetMessage(@msg, 0, 0, 0) do
  begin
    TranslateMessage(@msg);
    DispatchMessage(@msg);
  end;
end.