1:
2:
3:
4:
5:

Sql := 'Select* From Bogen.DB where SYS = '+  frmAzubiBeurteilungsbogen.TableAzubis.FieldByName('SYS').AsString;

frmAzubiBeurteilungsbogen.SQLBogen.Sql.Clear;
frmAzubiBeurteilungsbogen.SQLBogen.Sql.Add(Sql);
frmAzubiBeurteilungsbogen.SQLBogen.Active := True;					

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:

Function DBEmpty(dts : TDataSet) : Boolean; // Wird von der eigentlichen Prozedur aufgerufen.
begin
  Result := not dts.Active;
  if not Result then
  begin
    Result := dts.eof and dts.bof;
  end;
end;

// Das ist das, was du vermutlich benötigst.
// qQuelle ist dein TQuery, qZiel dein TTable.
// Wenn der Datensatz auch sofort gespeichert werden soll, musst du bei Speichern True übergeben.
procedure KopiereAktuellenDatensatzMitAppend(qQuelle, qZiel : TDataset; Speichern : Boolean);
var
  cnt : Integer;
  arr : array of variant;
begin
  if qQuelle.Active and (not DBEmpty(qQuelle)) then
  begin
    SetLength(arr, qQuelle.FieldCount);
    for cnt := 0 to qQuelle.FieldCount - 1 do
    begin
      arr[cnt] := qQuelle.Fields[cnt].AsVariant;
    end;
    qZiel.Append;
    for cnt := 0 to qZiel.FieldCount - 1 do
    begin
      qZiel.Fields[cnt].AsVariant := arr[cnt];
    end;
    if Speichern then
    begin
      qZiel.Post;
    end;
  end;
end;					

1:
2:
3:
4:

  frmMain.QueryBogen.Close;
  frmMain.QueryBogen.Sql.Clear;
  frmMain.QueryBogen.Sql.Add(Sql);
  frmMain.QueryBogen.Open;					

1:
2:
3:
4:
5:

  TTable.Active := False;
  TTable.Filtered := False;
  TTable.Filter :=  'Feldname = Wert'
  TTable.Filtered := True;
  TTable.Open;