TStringgrid zählt nur bis 10

[hoika]

Hallo,
ich sehe im Code keine 10 ??
Das muss du dem StringGrid schon sagen.


procedure TForm1.FormCreate(Sender: TObject);
var
i, J, z : Integer;
begin
z:=0;

StringGrid1.ColCount:= 75;
StringGrid1.RowCount:= 10;

with StringGrid1 do

Und ausserdem:
for I := 1 to ColCount - 1 do
Die Zählung begibt bei 0, nicht bei 1.