🚀 go-pugleaf

Not sure if this is the right forum, but I am writing a CRM application and
have a form which can create a new version of itself, which can in turn call
a new version of itself and so on.

The Activity form is created at runtime e.g.

Function TActivityForm.ShowForm : integer;
     Try
        ActivityForm := TActivityForm.Create(nil);
           With ActivityForm do begin
                SetStuff;
                ShowModal;
                Result := ActivityID
           end;
     Finally
           ActivityForm.Free;
     End;
End;

This form can then create another instance of the Activity form e.g.

FollowUpID := ShowForm;


The problem is that when the 2nd instance of the Activity Form is freed and
control returns to 1st instance of the Activity Form, the 1st instance of
the form is no longer accessible i.e. the instance of the form shows a null
value as its name e.g.
           ShowMessage(ActivityForm.Name);  //This shows "ActivityForm"
           FollowUpID := ShowForm;
           ShowMessage(ActivityForm.Name);  //This shows ""
and any attempt to access components on the form result in an access
violation.

Any ideas?

Many thanks in advance.

Paul.