Código Delphi [-] if (funciona) then begin // Ya está. Exit; end else begin // coloca aquí el error que te da MessageDlg('El error es...' + texto_de _error, mtError, [mbOK], 0); end;
if (funciona) then begin // Ya está. Exit; end else begin // coloca aquí el error que te da MessageDlg('El error es...' + texto_de _error, mtError, [mbOK], 0); end;