Jak zmienić właściwości captionów w messagedlg

Mówie wam jest to bardzo przydatne!! A co wam bede gadał macie funkcje:

function MyMessageDialog(const Msg: string; DlgType: TMsgDlgType; 
  Buttons: TMsgDlgButtons; Captions: array of string): Integer; 
var 
  aMsgDlg: TForm; 
  i: Integer; 
  dlgButton: TButton; 
  CaptionIndex: Integer; 
begin 

  aMsgDlg := CreateMessageDialog(Msg, DlgType, Buttons); 
  captionIndex := 0; 

  for i := 0 to aMsgDlg.ComponentCount - 1 do 
  begin 

    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; 
  end; 
  Result := aMsgDlg.ShowModal; 
end; 

teraz macie przykład:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=MyMessageDialog('Ile?', mtConfirmation, mbOKCancel, ['1', '2']);
case i of
mrok : ShowMessage('Kliknięto 1');
mrcancel : ShowMessage('Kliknięto 2');
end;
end;

proste nieprawdaż?