Teste de delphi

procedure AbreForm(aClasseForm: TComponentClass;
  aForm: TForm);
begin
 Application.CreateForm(AClasseForm, aForm);
   try
   aForm.ShowModal;
   Finally
    aForm.Free;
 end;
end;