Hallo,
versuchs mal so:
Delphi-Quellcode:
procedure TNeutral.Loaded;
begin
inherited;
FehlerLabel.Caption := '';
Zeichne.Enable(Self, false);
end;
Zeichne.Enable sieht so aus:
Delphi-Quellcode:
procedure TZeichnen.Enable(aNeutral: TNeutral; Direction: Boolean);
begin
with aNeutral do
begin
EDecAnzAtomMitOH.Enabled := direction;
EDecAnzOH.Enabled := direction;
[und noch mehr davon]
end;
end;
dann geht's bestimmt.
Die Referenz von Neutral hast Du wahrscheinlich zu dem Zeitpunkt noch gar nicht initialisiert.
Gruss