Извините, а не хотите формы создавать сразу, с помощью конструктора:

1. В форме TForm2 добавляется свойство
private
FCreator: TObject;
procedure SetCreator(const Value: TObject);
...
published
property Creator : TObject read FCreator write SetCreator;
...
procedure TForm2.SetCreator(const Value: TObject);
begin
FCreator := Value;
end;


2. В форме TForm2 перегружаем конструктор:

constructor Create(AOwner: TComponent); override;
...
constructor TForm2.Create(AOwner: TComponent);
begin
inherited;
FCreator := AOwner;
end;


Все. Теперь, если TForm1 или TForm3 создаст форму:
Form2 := TForm2.Create(Self),

то, если в форме Form3 вызвать ShowMessage(Creator.ClassName),
мы получим, что хотим.

Возможны варианты