uses UnitTabelKaryawan;
procedure TFormUtama.ActionViewTBKaryawanExecute(Sender: TObject);
begin
  FormTabelKaryawan:= TFormTabelKaryawan.Create(Self);
end;

begin
FormTabelKaryawan:= TFormTabelKaryawan.Create(Self);
 try
     formtablekaryawan.showmodal;
 finally
     formtablekaryawan.free;
end;

with TFormTableKaryawan.Create(Application) do
  Show;

with TFormTableKaryawan.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   if mdiChildCount > 0 then begin
	showmessage('Masih ada form yang dibuka.');
        canClose :=False;
  end
end;

if Not Assigned(Application.FindComponent('Form1')) then
begin
   //Perintah yang diinginkan jika form1 tidak aktif
end
else
begin
   showmessage('Form1 masih aktif');
end;