Brauche Hilfe bei der Fehlersuche.

[Beach]

Die Zeile 321:
strListCalc := TStringList.Create;

Delphi-Quellcode:

procedure TForm1.alCalcExecute(Sender: TObject);
var
  StrListCalc: TStringList;

begin

  strListCalc := TStringList.Create;
  ZeissCFG := TClassZeissCFG.Create;
  StrListCalc := ZeissCFG.BuildNewFile(CFGValues, ValuesX, ValuesY, ValuesZ, DataLoaded);
  if CheckForSelectedFiles() then
  begin
    if SaveDialog1.Execute then
    begin
      if SaveDialog1.FileName <> '' then
      begin
        StrListCalc.SaveToFile(SaveDialog1.FileName);
        ShowMessage('Neue CFG Datei gespeichert!');
      end;
    end
    else
    begin
      ShowMessage('Datei NICHT gespeichert!');
    end;

  end;


  FreeAndNil(ZeissCFG);
  FreeAndNil(strListCalc);

end;