function TGnv_App.of_OpenSheet(FormClass: TFormClass; var Form :TForm): Integer;
var
i : integer;
Child : TForm;
begin
for i := 0 to Screen.FormCount -1 do
if Screen.Forms.ClassType=FormClass then
begin
Child:=Screen.Forms;
if Child.WindowState=wsMinimized then
Child.WindowState:=wsNormal;
Child.BringToFront;
Child.Setfocus;
TForm(Form):=Child;
exit;
end;
Form := FormClass.Create(Application);