Und das
Delphi-Quellcode:
procedure TMaxMySqlQuery.Notification(Acomponent : TComponent; Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation = opRemove) and (AComponent is TMaxMySqlCon) then
TSource := nil;
end;
Das müßte eigenlich dein Fehler sein, denn du überschreibst die Notification-Funktion Diese wird bei jeder Veränderung, alos Erzeugen oder Löschen aufgerufen. Jedoch macht deine Funktion nichts anderes als deine If-Anweisung. Die eigendliche "Veränderungsfunktion" wird nicht aufgerufen. Leider weiß ich nicht, ob die in deinen Fall vor oder nach der If-Schleife kommen muß. Könnte sein, das dies je nach Operation auch verschieden sein kann.
Gruß Marco