1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TBuchMain.heuteGebtag1Click(Sender: TObject);
begin
  showmessage(inttostr(t) + ' ** ' + inttostr(m));
  qSchueler2.datasource   := TbSchueler.DataSource;
  qSchueler2.DatabaseName := listbox11.items[listbox11.itemindex];
  screen.cursor := crhourglass;
  QSchueler2.close;
    QSchueler2.sql.text :=
      format('select Ident_Nr, name, vorname, klasse, gebdat FROM "%s" S WHERE (day(gebdat) = :TagH) and (month(gebdat) = :MonH)', [TbSchueler.Tablename]);
      QSchueler2.Parambyname('TagH').asstring := inttostr(m);
      QSchueler2.Parambyname('MonH').asstring := inttostr(t);
  QSchueler2.open;
  screen.Cursor := crdefault;
  TeilmengenausgabeSG(QSchueler2);
end;                    

1:
2:

QSchueler2.Parambyname('TagH').AsInteger:= m;
QSchueler2.Parambyname('MonH').AsInteger:= t;