Auf Methoden einer Form zugreifen die über TFormClass erzeug

[Sharky]

Hai,

ich "spiele" eben etas mit TFormClass.
Meine Forms (TForm2 und TForm3) haben beide eine Methode .SetLabelText. Gibt es eine andere Möglichkeit auf diese von meiner Form1 zugreifen zu können als wie so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  newFormClass : TFormClass;
  newForm : TForm;
begin
  Case (Sender AS TButton).Tag of
    0 : newFormClass := TForm2;
    1 : newFormClass := TForm3;
  end;
  newForm := newFormClass.Create(self);
  try
    if (newFormClass = TForm2) then
    begin
      (newForm as TForm2).SetLabelText('Form 2');
    end
    else
    begin
      (newForm as TForm3).SetLabelText('Form 3');
    end;

    //  newForm.SetLabelText ('*blubb das geht nicht*');

    newForm.ShowModal;
  finally
    FreeAndNil (newForm);
  end;
end;

Das Projekt hänge ich mal an.