Zeig mal den constructor von TMain_Zugriff.
Probier eventl. mal das. Wenn das funzt liegt Uwe wohl richtig:
Delphi-Quellcode:
procedure TDatMod.DataModuleCreate(Sender: TObject);
begin
Aset_TitelAfterScrollFlag:= false;
MainZu := TMain_Zugriff.Create;
Aset_TitelAfterScrollFlag:= true;
end;
procedure TDatMod.Aset_TitelAfterScroll(DataSet: TDataSet);
begin
if Aset_TitelAfterScrollFlag then
begin
..
end;
end;