Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Добавляем компонент в стандартный MessageDialog

01.01.2007

Автор: Terrance Hui

Пример показывает стандартное диалоговое окно, которое обычно используется для подтверждения дальнейших действий в любой программе с галочкой "Don't show this message again."

Используем функцию CreateMessageDialog и добавляем любой компонент до того как будет вызвана ShowModal.

procedure TForm1.Button1Click(Sender: TObject); 
Var
 
AMsgDialog: TForm;
 
ACheckBox: TCheckBox;
begin
 
AMsgDialog := CreateMessageDialog('This is a test message.', mtWarning, [mbYes, mbNo]);
 
ACheckBox := TCheckBox.Create(AMsgDialog);
 
with AMsgDialog do
 
try
   
Caption := 'Dialog Title' ;
   
Height := 169;
 
   
With ACheckBox do
   
begin
     
Parent := AMsgDialog;
     
Caption := 'Do not show me again.';
      top
:= 121;
     
Left := 8;
   
end;
 
   
Case ShowModal of
      ID_YES
: ;//здесь Ваш код после того как диалог будет закрыт
      ID_NO
:  ;
   
end;
   
If ACheckBox.Checked then
   
begin
     
//...
   
end;
 
finally
   
ACheckBox.Free;
   
Free;
 
end;
end;

Так же Вы можете изменить диалог по Вашему усмотрению.

Взято из https://forum.sources.ru