Как вставить диалоговый значок ICONWARNING на форму?

function TForm1.MsgDlgPos(const Msg: string; DlgType: TMsgDlgType; DlgCaption: string;
           Buttons: TMsgDlgButtons; Captions: array of string; X, Y: integer; Snd: boolean): Integer;
var
  aMsgDlg: TForm;
  i: Integer;
  dlgButton: TButton;
  CaptionIndex: Integer;
begin
// Ñîçäà¸ì äèàëîã è çàïèñûâàåì â ïåðåìåííóþ aMsgDlg
  aMsgDlg := CreateMessageDialog(Msg, DlgType, Buttons);
// X,Y = -1 - äèàëîãîâîå îêíî âûâîäèòñÿ ïî öåíòðó ïðèëîæåíèÿ
// X,Y =  0 - äèàëîãîâîå îêíî âûâîäèòñÿ ïî öåíòðó ìîíèòîðà
  if X = -1 then
    aMsgDlg.Left := Form1.Left + (Form1.Width div 2) - (aMsgDlg.Width div 2)
  else
    if X > 0 then aMsgDlg.Left := X;
  if Y = -1 then
    aMsgDlg.Top := Form1.Top + (Form1.Height div 2) - (aMsgDlg.Height div 2)
  else
    if Y > 0 then aMsgDlg.Top  := Y;
  if DlgCaption <> '' then aMsgDlg.Caption := DlgCaption;
  CaptionIndex := 0;
// Â öèêëå ïåðåáèðàåì âñå êíîïêè äèàëîãà è çàäàåì èì ñîîòâ. çàãîëîâêè
  for i := 0 to aMsgDlg.ComponentCount - 1 do
    if (aMsgDlg.Components[i] is TButton) then
    begin
      dlgButton := TButton(aMsgDlg.Components[i]);
      if CaptionIndex > High(Captions) then Break;
      dlgButton.Caption := Captions[CaptionIndex];
      Inc(CaptionIndex);
    end;
  if Snd then // Çâóêîâîé ñèãíàë ñîîáùåíèÿ
    case DlgType of
      mtWarning,
      mtConfirmation: MessageBeep(MB_ICONWARNING);
      mtError       : MessageBeep(MB_ICONERROR);
      mtInformation,
      mtCustom      : MessageBeep(MB_ICONINFORMATION);
    end;
  Result := aMsgDlg.ShowModal;
end;

    if MsgDlgPos('Âû äåéñòâèòåëüíî õîòèòå âûéòè?', mtConfirmation, 'Ïîäòâåðæäåíèå',
                 [mbYes, mbNo], ['Äà', 'Íåò'], -1, -1, true) = idNo then Action := caNone;

  Image1.Picture.Icon.Handle :=
    LoadImage(0, MAKEINTRESOURCE(OIC_WARNING {OIC_WINLOGO, OIC_ERROR и т.д.}),
    IMAGE_ICON, 0, 0, LR_DEFAULTSIZE or LR_SHARED);

Image1.Picture.Icon.Handle := LoadIcon(0, IDI_WARNING);