Procedure AbreForm(var Form:TForm; FormClase: TClassForm; AShowModal:Boolean = False);
begin
if not Assigned(Form) then
begin
Form := FormClase.Create(application);
if AShowModal then
Form.ShowModal
else
Form.Show;
end else
begin
Form.bringtofront;
end;
end;