StringGrid Drucken

[cRayZo]

also ich hab mir das jetzt so gedacht, zu umgehen..
auf eine Seite passen 32 Vokabeln+ Überschrift
ich lade einfach immer nur 32 Vokabeln in die Stringlist, durcke, lösche die 32 und lade 32 neu..

ABER.. es klappt nicht, könnt ihr mir vielleicht helfen, woran das liegt?

Delphi-Quellcode:

procedure Tdrucken.Button2Click(Sender: TObject);
var
i, i2, i3:integer;
vokabel,Loesung:string;
sl: TStringlist;
begin
sl:=TStringlist.Create;
sl:=stringlistx;

        for i2:=0 to round(sl.Count/32) do
        begin
                for i:=0 to 32 do
                begin
                splitstr(sl.Strings[i],'=',Vokabel, Loesung);
                Stringgrid1.Cells[1,i+1]:=Vokabel;
                Stringgrid1.Cells[0,i+1]:=Loesung;
                griddruck(stringgrid1,0,0,1);
                        for i3:=0 to 32 do begin
                        sl.Delete(i3); end;
                end;



        end;

end;