Chamar Formulário

https://www.youtube.com/watch?v=E9Tu39MPO5M

no formulário principal

procedure tf_inicial.tela1click(sender: tobject);

begin

if F_tela1 = nil then
  begin
    F_tela1 := TF_tela1.Create(self);
    F_tela1.showmodal;
  end;
end;


no formulario tela_1
no evente onclose

begin

  F_tela1 := nil;

end;