LoadDialog mit TMainMenu funktioniert nicht korrekt.

[Subsidenz]

Delphi-Quellcode:

procedure TForm1.oeffnenClick(Sender: TObject);
begin
open.execute;
u:=open.Filename;
a:=1;
n:=0;
t:='t';
 begin
  sl := TStringList.Create;
  ini := TIniFile.Create(ExtractFilePath( ParamStr(0))+u);
  try
    Ini.ReadSectionValues(t+IntToStr(0),sl);
    b := sl.Count;
    finally
    FreeAndNil(sl);
  end;
grid.RowCount:=b+1;
 for a:=1 to b do
  for n:=0 to 4 do
   grid.Cells[n,a]:=ini.ReadString(t+IntToStr(n), IntToStr(a), '');
end;
ShowMessage('Ladevorgang war erfolgreich!');
ini.free;
end;

Soweit funktioniert das aber er lädt nur eine Zeile. Bin ratlos . In der Tabelle erscheinen nur die fixierten Zellenüberschriften.

MFG Subsidenz