Zugriffsverletzung bei zuweisung von Self

[Nuclear-Ping]

Das ist die Stelle, wo er einen neuen Termin anlegt:

Delphi-Quellcode:

procedure Tonl_kalender.FormMouseDown(Sender: TObject;
   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var
   xp,yp      : Longint;
begin
   xp:=(x-FUserWidth) DIV TimeWidth;
   yp:=(y-FHeaderHeigth) DIV TimeHeight;
   If (xp>=0) and (yp>=0) then
   Begin
      FCreateTermin:=True;
      FNewtermin:=Tonl_kaltermin.Create(Self);
      FNewtermin.Parent:=Self;
      FNewtermin.Color:=clBlack;
      FNewtermin.Left:=x;
      FNewtermin.Top:=y;
   End;
end;

Das Self bezieht sich hier auf Tonl_kalender, er hat auch kein with ... do drin. Ich vermute der Fehler kommt daher, weil Tonl_kalender vom Typ TWinControl ist. Warum kann ich nicht sagen, ist aber so beim drüberblicken das einzig nachvollziehbare. Warum leitest du von TWinControl ab?