Klassenaufruf führt zum Absturz

[phate2613]

Im Hauptprogramm definiert:

type
TSettings = class
private
FSettingsDatei: File of Einstellung;
FProfilname: String;
FVokabelAnzahl: Integer;
FBibliothekspfad: String;
procedure SetzeProfilName(Eingabe: String);
public
constructor Create;
property Profilname: string read FProfilname write SetzeProfilName;
property VokabelAnzahl: Integer read FVokabelAnzahl;
procedure EinstellungenAendern(Pname, Bpfad: String; Vanzahl: Integer);
end;


Und aufgerufen wir aus einem zweiten Fenster:

procedure TFensterEinstellungen.FormShow(Sender: TObject);
begin
Settings.Create; hier stürzt er ab
AnzahlVokabelnEdit.Text := IntToStr(Settings.VokabelAnzahl);
end;