1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

function TCBDBLink.getQuery(ASQLStatement: String;
  ATransaction: TIBTransaction = nil;
  AErrorMessage: String = '';
  ASilent: Boolean = FALSE): TIBQuery;
var
  LTransaction: TIBTransaction;
begin
  try
    result := TIBQuery.Create(nil);
    result.Database := self;
    if not assigned(ATransaction) then begin
      LTransaction := getTransaction;
      result.Transaction :=  LTransaction;
    end
    else
      Result.Transaction := ATransaction;
    result.SQL.add(ASQLStatement);
    result.Prepare;
    result.Open;
  except on E: Exception do
    begin
      if not ASilent then
        MessageDlg(
          AErrorMessage + #13#10#13#10 + 
          'Folgende Meldung:'#13#10#13#10 +
          E.Message + #13#10#13#10 +
          ASQLStatement, mtError, [mbOk], 0);
      if LTransaction.InTransaction then
        LTransaction.Commit;
      if Assigned(LTransaction) then
        FreeAndNil(LTransaction);
      if assigned(result) then
        FreeAndNil(result);
    end;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure WasWeissIch;
var 
...
  LQuery: TIBQuery;
begin
  ...
  LQuery := GCBDBLink.getQuery('SELECT * FROM TABELLE_E');
  ...
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

{$UNTESTED}
procedure TForm1.QueryShowAll(Query: TQuery);
begin
  with Query do begin
    Close;
    SQL.Clear;
    SQL.Add(Select * from tabelle);
    Open;
  end  
end;                    

1:

QueryShowAll(Name_Deiner_Query);