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

procedure tform5.listbox1click(sender:TObject);
begin
 with listbox1 do
 begin
  clickwert:=itemindex;
  if clickwert >34 then clickwert:=clickwert+216;
  if (clickwert>17) and (clickwert<35) then clickwert:=clickwert+182;
  if (clickwert>1) and (clickwert<18) then clickwert:=clickwert+99;
  stringgrid1.hide;
  stringgrid2.show;
  stringgrid2click(sender);
 end;
end;					

1:
2:
3:
4:

for i:=stringgrid.fixedrows to stringgrid.rowcount-1 do
  Stringgrid.rows[i].clear;
optional: um auch die Zeilen ganz rauszunehmen
stringgrid.rowcount:=stringgrid.fixedrows+1;