mach das mal in DELPHI tags ....
anstatt dem
Query1.Active := True
mach
Query1.Open;
und das mit dem Stringgrid kannst du komplett weglassen wenn du nen DBGrid an die DataSource hängst und die Datasource mit deiner
Query verknüpst ...
Delphi-Quellcode:
DataSource1.DataSet := Query1;
DBGrid1.DataSource := DataSource1;