Prueba un código como este, a ver si se acerca a lo que necesitas.
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
res:TModalResult;
AMsgDialog: TForm;
const
MsgRutaBDNoEncontrada='La ruta de acceso de la base de datos del sistema no ha sido encontrada, deberá ingresarla manualmente. ¿Desea efectuar esta operación?';
begin
AMsgDialog := CreateMessageDialog(MsgRutaBDNoEncontrada, mtWarning, [mbYes, mbNo]);
try
AMsgDialog.Width := AMsgDialog.Width + 40;
AMsgDialog.Caption := 'Sistema Prueva - v1.02013...';
res := AMsgDialog.ShowModal;
finally
FreeAndNil(AMsgDialog);
end;
end;
Un saludo.