protected/private function in Klasse benutzen

[Pseudemys Nelsoni]

Moin,

ich habe 2 Klassen: KlasseA und KlasseB. KlasseB hat INSTANZEN von KlasseA...
Das Problem ist jetzt, das ich die protected/private funktionen von KlasseA nicht aufrufen kann...wegen der Sichtbarkeit halt. Ich brauche sie dort aber, also was kann ich jetzt machen?
Die Funktionen dürfen auf keinen Fall Publik werden!

Im Grunde sieht das ganze z.Z so aus:

Delphi-Quellcode:

function KlasseB.EineProzedur();
var
  A: KlasseA;
begin
  if Assigned(FSomething) then
  begin
    A := KlasseA.Create:
    try 
      A.SetAddress(s)
      FSomething(A);
    finally
      A.Free;
    end;
  end;
end;

d.h ich übergebe einem Ereignis eine Klasse...nur darf die "SetAddress" dort nicht zu benutzen sein... aber hier in diesem Code sollte es schon möglich sein da ich sie brauche.

Jemand ne Idee?

BTW: Ist es überhaupt sinnvoll Klassen zu übergeben? Denn der Benutzer meiner Kompoente könnte ja auch "Free" aufrufen, was er aber ja nicht sollte...