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

Type
TResultArray=Array of Array of Variant; // oder String

Function StringGridSQL(SG:TStringGrid;const SQL:String):TResultArray;
var
  i,rows,cols:Integer;
begin
   // Felder Parsen oder bei * cols = Grid.Colcomut  + hier vielleicht ein zusätziches "Feld" für dir RowNumber
   for I := 0 to SG.RowCount - 1 do
      begin
        // Wenn Bedingung erfüllte dann
        inc(rows);
        Setlength(Result,rows + 1, Cols);
        // Zellwerte eintragen
      end;
   // in Result[0][0..cols] die Feldnamen eintragen
   // Result[1] bis Result[rows-1] sortieren nach Order by vorschrift

end;                    

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

procedure TBuchMain.BuchstatusdieserGruppe1Click(Sender: TObject);
begin
  tnt3init(self);
  TntStringgrid1selectcell; // ???;
  button44click(self);
end;

procedure TBuchMain.TntStringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var n : smallint;
begin
  n := -1;
  repeat
    inc(n);
  until listbox1.Items[n] = tntstringgrid1.cells[aCol,aRow];   // z.B. '10c';
  listbox1.ItemIndex := n;
end;