Then-Zweig setzt aus

[Mosi17]

Ich habe diese Prozedur geschrieben:

Delphi-Quellcode:

procedure TForm1.bt_startClick(Sender: TObject);
var zahl,i,j:integer; datei:textfile; gesp:tfeld; h:string;
begin
zahl:=strtoint(ed_nummer.text);
[...]
if zahl=0
 then
  begin
  zahl:=random(5);
  for i:=1 to 9*zahl do
   begin
   readln(datei);
   end;
  try
   for i:=1 to 9 do
    begin
    readln(datei,h);
    for j:=1 to 9 do
     gesp[i,j]:=strtoint(h[j]);
    end;
  finally
  closefile(datei);
  end;
  end
 else
  begin
  zahl:=strtoint(ed_nummer.Text)-1;
  for i:=1 to 9*zahl do
   begin
   readln(datei);
   end;
  try
   for i:=1 to 9 do
    begin
    readln(datei,h);
    for j:=1 to 9 do
     gesp[i,j]:=strtoint(h[j]);
    end;
  finally
  closefile(datei);
  end;

Nun zu meinem Problem: Das klappt nicht so wie ich mir das denke Irgendwie scheint der then-Zweig nicht zu klappen, denn wenn ich dann das array in das stringgrid übertrage bleibt letzteres leer. Allerdings nur wenn ich den Else-zweig im Programm lass. Sobald ich den herausnehm, klappt der Then-Zweig wunderbar. Vielleicht weiß einer woran das liegt, denn ein "richtiger" Fehler kann es ja nicht sein, oder?