Texto cortado en MessageBox

[Neftali [Germán.Estévez]]

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
  // crear el mensaje
  AMsgDialog := CreateMessageDialog(MsgRutaBDNoEncontrada, mtWarning, [mbYes, mbNo]);
  // proteccion para liberar
  try
    // Añadir al mensaje el link
    AMsgDialog.Width := AMsgDialog.Width + 40;
    AMsgDialog.Caption := 'Sistema Prueva  - v1.02013...';
    // Visualizar la ventana
    res := AMsgDialog.ShowModal;
  finally
    FreeAndNil(AMsgDialog);
  end;
end;

Un saludo.