//----------Daten in Stringgrid einlesen------------------
procedure TDatenmodul.SQL_InGrid(query:string;sg:TStringGrid);
var
  i,j:integer;
 begin
  with Datenmodul.ADOQ do
    begin
    Active:=false;
    SQL.Text:=query;
    Active:=true;

j:=0;
while not Eof do
    begin
      // Alle Daten einlesen
      for i := 0 to Fields.Count-1 do SG.cells[i,j+1] := Fields[i].Value;
      inc (j);
      sg.rowcount:=j+1;
      next;
        sg.FixedRows:=1;
        sg.ColCount:= Fields.Count;
    end;
     Active:=False;
end;
end;