Как создать заказной диалог (Да, Нет)?

function CustomMessageDialog(mess,title:string;  DlgType: TMsgDlgType; buttons: TMsgDlgButtons; Custom : string = ''):integer;
var d: TForm; s:TStringList; i,k:integer;
begin
  d:=CreateMessageDialog(mess,DlgType,buttons);
  s:=TStringList.Create;
  s.Delimiter:=',';
  s.DelimitedText:=Custom;
  if s.Count>0 then begin
    for i := 0 to d.ControlCount - 1 do
      if (d.Controls[i] is TButton) then begin
          TButton(d.Controls[i]).caption:=s[0];
          s.Delete(0);
          if s.Count=0 then break;
      end;
  end; // end if
  s.Free;
  d.BorderIcons:=[];
  d.Caption:=title;
  result:=d.ShowModal;
  d.free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if CustomMessageDialog('hello','мой диалог',mtConfirmation,[mbYes,mbNo],'да,нет') = mrYes then ShowMessage('1');
end;