Как узнать какая форма открыта?

for i := 0 to Screen.FormCount - 1 do
Memo1.Lines.Add(Screen.Forms[i].Caption);

Forma := TForm.Create(Form1);
...
Forma.ShowModal;

if IsIconic(Application.Handle) then
    Application.Restore;

if IsIconic(Application.Handle) then
    Application.Restore;

procedure TForm1.Button1Click(Sender: TObject);
var
  Form: TForm2;
begin
... // Тут код который выполняется перед созданием формы он не как не влияет на это, так как пробовал без него
if IsIconic(Application.Handle) then
    Application.Restore;
Forma := TForm2.Create(Form1);
... // Тут код который выполняется перед показом формы он не как не влияет на это, так как пробовал без него
Forma.ShowModal; 
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  Form: TForm3;
begin
... // Тут код который выполняется перед созданием формы он не как не влияет на это, так как пробовал без него
if IsIconic(Application.Handle) then
    Application.Restore;
Forma := TForm3.Create(Form2);
... // Тут код который выполняется перед показом формы он не как не влияет на это, так как пробовал без него
Forma.ShowModal; 
end;

if IsIconic(Application.Handle) then
    Application.Restore;

Panel1.Enabled := false;