Criação de Forms

Na correria do dia a dia para quem trabalha na programação nada melhor que poder reutilizar um código em vários  lugares no seu projeto.
Pensando nisso estou colocando uma procedure de criação de formulário na qual você pode utilizar e muito.

procedure AbreForm(aClasseForm: TComponentClass; aForm: TForm);


procedure AbreForm(aClasseForm: TComponentClass; aForm: TForm);
begin
    Application.CreateForm(aClasseForm, aForm);
    try
        aForm.ShowModal;
    finally
        FreeAndNil(aForm);
    end;
end; 


Ex. de uso : AbreForm(TForm1,Form1);