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

procedure TForm4.Button4Click(Sender: TObject);
begin
  InputString := InputBox('SQL-Eingabedialog', 'Eingabe:',
    format('select count (*) ' +
           'from "%s" ' +
           'where FSPRACHE1 LIKE ''F%'' ', [t]));
  showmessage(inputstring);
  with query1 do
  begin
    close;
      SQL.Text := InputString;
    open;
  end;
  showmessage(query1.Fields[0].asstring);
  //datasource1.dataset := query1; dbgrid1.datasource := datasource1;
end;