Программа на WINAPI, сокеты

[Arsenx777]

У меня есть такая задача, нужно сделать программу на котором будет распологаться кнопка "TButton" и компонент "TServerSocket", в обр. соб. "onClick"

begin
ServerSocket.Active:=true;
end;

Вся программа должна выглядеть так как описано выше.

Но сама размер программы не должно преышать 100кб.

Как быть если автомитически созданная форма VCL превышает 300кб.

Можно ли это как то по другому реализовать и как?

Я попробовал создать форму на WinAPI

program Project2;

uses
  Windows,
  Messages,
  StdCtrls;

const
  szMainWndClass: array [0..15] of Char = 'Project1MainWnd';
  szCaption: array [0..6] of Char = 'WinAPI';
  szErrClassReg: array [0..30] of Char = 'Ошибка регистрации класса окна';
  szErrCreateWnd: array [0..20] of Char = 'Ошибка создания окна';

  var
  hMainWnd: HWND;
  wc: WNDCLASS;
  mess: MSG;
  Btn: TButton;

  function MainWndProc(Wnd: HWND; uMsg: UINT; WPrm: WPARAM; LPrm: LPARAM): LRESULT;stdcall;
  begin
    Result:=0;
    case uMsg of
      WM_CLOSE: DestroyWindow(Wnd);
      WM_DESTROY: PostQuitMessage(0)
        else
      Result:=DefWindowProc(Wnd,uMsg,WPrm,LPrm);
    end;
  end;

begin
  wc.style := CS_HREDRAW or CS_VREDRAW;
  wc.lpfnWndProc := @MainWndProc;
  wc.cbClsExtra := 0;
  wc.cbWndExtra := 0;
  wc.hInstance := HInstance;
  wc.hIcon := LoadIcon(0, IDI_APPLICATION);
  wc.hCursor := LoadCursor(0, IDC_ARROW);
  wc.hbrBackground := COLOR_WINDOW;
  wc.lpszMenuName := nil;
  wc.lpszClassName := @szMainWndClass;
    if RegisterClass(wc) = 0 then
    begin
      MessageBox(0, @szErrClassReg, nil, MB_OK);
      Exit
    end;
hMainWnd := CreateWindow(@szMainWndClass,
    @szCaption,
    WS_OVERLAPPEDWINDOW,
    CW_USEDEFAULT, CW_USEDEFAULT,
    CW_USEDEFAULT, CW_USEDEFAULT,
    GetDesktopWindow,
    0,
    HInstance,
    nil);
  if hMainWnd = 0 then
    begin
      MessageBox(0, @szErrCreateWnd, nil, MB_OK);
      Exit
    end;
  ShowWindow(hMainWnd, CmdShow);
  UpdateWindow(hMainWnd);
  while GetMessage(mess, 0, 0, 0) do
    begin
      TranslateMessage(mess);
      DispatchMessage(mess)
    end;
end.

Но кроме этого не знаю как быть дальше. Кто знает что делать дальше и как?

Я пробовал создать кнопку

Btn.Create();

Что мне писать в параметр? self пишу, но не получается, выдает ошибку(

Не получается создать кнопку и TServerSocket.

[phomm]

После создания окна создаем кнопку

hButton1 := CreateWindow ('Button', {строка- надпись},
    WS_VISIBLE or WS_CHILD or BS_PUSHLIKE or BS_TEXT,
    5, 5, 65, 24, Window, 0, hInstance, nil); // Window - ссылка на созданное окно

обработка оконных сообщений

function WindowProc (Window : HWnd; Message, WParam : Word;
         LParam : LongInt) : LongInt; stdcall;

begin
  WindowProc := 0;
  case Message of
...
       // button pushing
       wm_Command : if lParam = hButton1 then ; // тут вызов процедуры нажатия
  end; // case
  WindowProc := DefWindowProc (Window, Message, WParam, LParam);
end;

Компонент серверсокет создавайте динамически в процедуре для нажатия кнопки и присваивайте ему для обработчиков событий уже описанные Вами в каком-нибудь классе методы (с правильной сигнатурой конечно же), экземпляр класса можно создать там же где и окно с кнопкой.