hsr///////////////////////////////////////////////
저도 이방법이 좋은것 같아 계속사용하거든요.

1.폼호출시
procedure TFrmmain.Btn_ChartClick(Sender: TObject);
begin
      //1.말씀하신 : 이미 생성되 있는 Form이 생성 되는 것을 막기 위한
      if not(assigned(FrmChart)) then
          FrmChart := TFrmChart.Create(nil);
       FrmChart.ShowModal;
end;
1-1.항상 폼을 닫을때 코딩
procedure TFrmChart.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;
end;

procedure TFrmChart.FormDestroy(Sender: TObject);
begin
    FrmChart := nil;
end;

2.'FindWindow로 자기 자신을 찾아서 Show Message를 띄우는 것까지는 하겠는데 아예 실행이 안 되게 하는 것'
=> 이건 좀 이해가 안가는데요...
위에서 begin...end;로 묶으시면 될거 같은데요
if not(assigned(FrmChart)) then begin
   FrmChart := TFrmChart.Create(nil);
   FrmChart.ShowModal;
end;

안녕하세요. 최용일입니다.

흠~ 무슨 말인지 정확히 의미가 와 닫지 않네요...

같은 프로그램을 두번이상 띄우지 않으실려면 뮤텍스(Mutex)를 이용하시는 것이 제일 좋은 방법이구요. 쓰는 방법은 검색해보시면 많이 있습니다.

같은 프로그램내에서 폼을 두번이상 띄우지 않으실려면 띄워진 폼들을 관리하는 클래스를 만드시던가 Screen.Forms속성을 조사하셔서 같은 폼이 이미 있다면 안띄우시면 됩니다.

^^ 항상 즐코하세요...