access private procedures

[question]

Hello,
I have created a projectgroup , in this projectgroup- i have two units. I have created one procedure in unit under private declaration and I would like to call this procedure from another unit. But I have an error “cannot access private symbol…”
Could you please tell me, how to access private Procedures/Function from one unit to another ?
Here is the code:

unit CalCulation;
interface
uses
type
TCal = class(TObject)
private
procedure AddNumbers (Sender : TObject);
end;
var
MyAdd : TCal;
implementation
procedure TCal. AddNumbers (Sender : TObject);
var
t,o, Result : integer;
begin
//calculation
end;
------------------------------
unit frmShow;

procedure TForm3.Button1Click(Sender: TObject);
begin
MyAdd.AddPublic(Sender); // here is the error as it has declared as a private in other unit
end;

[Union]

Make them public. AND TAG YOUR SOURCE.

[Der schöne Günther]

Why did you make it private then? Private means private.

There is, however, a rather ugly way: You can declare a new subclass in your new unit and cast your object to that new subclass.