1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

{$R icon.res}

procedure TForm1.Button1Click(Sender: TObject);
var
  MsgBoxParams: TMsgBoxParams;
begin
  MsgBoxParams.cbSize := SizeOf(TMsgBoxParams);
  MsgBoxParams.hwndOwner := Self.Handle;
  MsgBoxParams.hInstance := GetWindowLong(Self.Handle, GWL_HINSTANCE);
  MsgBoxParams.lpszText := 'Beispieltext.';
  MsgBoxParams.lpszCaption := 'Beispieltitel';
  MsgBoxParams.lpszIcon := MAKEINTRESOURCE(1);
  MsgBoxParams.dwStyle := MB_USERICON;
  MessageBoxIndirect(MsgBoxParams);
end;					

1:

1 ICON DISCARDABLE "Moebius.ico"