Hilfe-Programm funktioniert nur Entwicklerumgebung!

[lnaemi]

liebe leute!
ich habe das programm in Entweicklersystem getestet und alles funktioniert problemlos, aber nur bei einen funktion in echt system, kriege ich die fehlermeldung: "Operation fehlgeschlagen"

bitte schaut mein code an und vielleicht könntet ihr mir dann sagen, wo ich was falsch machen.

da ich in entwicklerumgebung keinen fehler kriege weiss ich nicht, worum es wirklich geht.

und ich habe in echtsystem kein delphi oder zugang um zu schauen, was dort los ist.
lg lnaemi

Delphi-Quellcode:

procedure TfrmMain.grdFormbalttDblClick(Sender: TObject);
var
  vWert, SQL, vUser, vUser_nr, vRole, vAssign,sText: String;
  i: Integer;
begin
  TRY
    vWert := grdFormbaltt.SelectedField.Value;
    SQL := '';
    SQL := 'select Distinct WORKGRP.WORKGRP_ID from WORKGRP, WORKGRP_TEMPLATE, TEMPLATE  where';
    SQL := SQL + ' TEMPLATE.TEMPLATE_NR = WORKGRP_TEMPLATE.TEMPLATE_NR';
    SQL := SQL + ' and WORKGRP.WORKGRP_ID = WORKGRP_TEMPLATE.WORKGRP_ID';
    SQL := SQL + ' and TEMPLATE.NAME = '+ QuotedStr(vWert) + ' ORDER BY UPPER(WORKGRP.WORKGRP_ID)';

    DM.qryGrid2.active := false;
    DM.qryGrid2.SQL.clear;
    try
        DM.qryGrid2.SQL.add (SQL);
     except
             on E: EDatabaseError do ShowMessage(E.Message);
        on X: Exception do ShowMessage(X.Message);
    end;
    DM.qryGrid2.active := true;
    DM.srcGrid2.Enabled := True;

  EXCEPT
    on X: Exception do ShowMessage(X.Message)
    else
      Application.MessageBox('Operation fehlgeschlagen!', 'Fehler!');
  END;
end;