Как вшить иконку в мою прогу с нуля?

в .RC - файле, подключаемом к проекту, пишешь:

100 ICON "100.ico"

для загрузки иконки:

with MainWindow do
begin
  cbSize := SizeOf(MainWindow);
  style := CS_HREDRAW or CS_VREDRAW;
  lpfnWndProc := @WindowProc;
  cbClsExtra := 0;
  cbWndExtra := 0;
  hIcon := LoadIcon(0, IDI_APPLICATION);
  hCursor  := LoadCursor(0, IDC_ARROW);
  hbrBackground := COLOR_BTNFACE + 1;
  lpszMenuName := nil;
  lpszClassName := 'TDeliveryInstaller';
end;

MainWindow.hInstance := HInstance;
if RegisterClassEx(MainWindow) = 0 then Exit;

Width := 360;
Height := 200;

InitCommonControls;

Handle := CreateWindowEx(0, 'TDeliveryInstaller',
  PChar(TXT_CAPTION), WS_OVERLAPPED or WS_SYSMENU,
  Left, Top, Width, Height, 0, 0, HInstance, nil);

SendMessage(Handle, WM_SETICON, 1, LoadIcon(HInstance, MAKEINTRESOURCE(100)));