Rückgabe aus Stringgrid

[Privateer3000]

Hiho,
das ganze funktioniert einfach nicht.
Die Listbox bleibt leer...
hier mal der ganze Code, wenn ihr bitte mal drüber guckt:

Delphi-Quellcode:

type
  Tartgruppen = class(TForm)
    gruname: TEdit;
    gquer: TADOQuery;
    sPanel1: TsPanel;
    speichern: TsButton;
    loesch: TsButton;
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    ggrid: TDBGrid;
    gsource: TDataSource;
    upquer: TADOQuery;
    ListBox1: TListBox;
    upds: TDataSource;
    procedure speichernClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ggridCellClick(Column: TColumn);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  artgruppen: Tartgruppen;

implementation

{$R *.dfm}
uses haupt,DatenModulUnit;

procedure auslesen(const grid:TDBGrid; ugquer:TADOQuery);
var xc: Integer;
begin
grid.Columns[0].Width:=20;
grid.Columns[1].Width:=170;
ugquer.Close; ugquer.SQL.Clear;
ugquer.SQL.Add('SELECT * FROM artgr');
ugquer.Open;
end;

procedure Tartgruppen.speichernClick(Sender: TObject);
begin
gquer.Close; gquer.SQL.Clear;
gquer.SQL.Add('INSERT INTO artgr (NAME) VALUES ('+QuotedStr(gruname.Text)+')');
gquer.ExecSQL;
auslesen(ggrid,upquer);
gruname.SetFocus;
gruname.Text:='';
end;

procedure Tartgruppen.FormActivate(Sender: TObject);
begin
auslesen(ggrid,upquer);
end;

procedure Tartgruppen.ggridCellClick(Column: TColumn);
var
  i, j: Integer;
  s: string;
begin
  if ggrid.SelectedRows.Count>0 then
  with ggrid.DataSource.DataSet do
    //with ggrid1.DataSource.DataSet do
      for i:=0 to ggrid.SelectedRows.Count-1 do
      begin
        GotoBookmark(pointer(ggrid.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
        begin
          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
        s:= '';
      end;
end;