Odczyt nazwy formy wywołującej OnShow drugiego formularza

Na Form1 mam przycisk Button, w którego zdarzeniu OnClick jest Form2.Show.
W jaki sposób odczytać nazwę formy, która wywołała pokazanie okna?

Możesz przeciążyć procedurę Show Form2, w private dodaj zmienną:

fOwnerForm:TForm;

w public:

procedure Show(AOwner: TForm); overload;

procedure TForm2.Show(AOwner: TForm);
begin
  fOwnerForm:= AOwner;
  Show;
end;

i wywołujesz:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show(Form1);
  //lub
 //Form2.Show(Self);
end;

i masz w zmiennej fOwnerForm

Błąd przy kompilacji

 [DCC Error] Unit1.pas(30): E2003 Undeclared identifier: 'AOwner'

Jeżeli zrobisz dokładnie tak, jak opisuje @kAzek nie będzie żadnego błedu. Po prostu nie ma prawa i na pewno nie będzie takiego. A nastepnym razem jeżeli nadasz wątkowi tak idiotyczny tag jak form, o tak banalne podstawy będziesz pytał nie w dziale Newbie i dodatkowo dublował posty to będę je "nagradzał" Koszem. No ja pieprze, żeby user będący prawie dwa lata na forum takich rzeczy nie ogarniał jak postowanie zgodne z zasadami, to po prostu wstyd :/