모듈 중복실행 방지

procedure TfmMain.N13click(Sender: TObject);

beggin

  if self.FindComponent('fmADA05c') <> Nil then Exit;

 

  fmADA05c := TfmADA05c.create(self);

  fmADA05c.BorderStyle := bxNone;

  fmADA05c.Align := alClient;

  fmADA05c.Parent := self;

  fmADA05c.show;

end;