올만에 답글 올리네여.. 쩝

이런경우 동적생성할 Form2를 쓰레드로 생성하세요
그럼 생성된 쌍동이놈들이 질문 상황과 달리
말 안들어 먹고(?) 고집스럽게 자기일만 할겁니다.
Form2는 걍 놔두시구요 Form1의 소스를 아래처럼 수정해보세요..

그나저나 누가 혹시 Mscomm32.ocx 보다 더 쓸만한 콤포 알고 계신분 없나여?




unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
private
   { Private declarations }
public
   { Public declarations }
end;

type
TAT = class(Tthread)
protected
  procedure Execute; override;
end;

var
Form1: TForm1;
AT : TAT;

implementation


uses Unit2;


{$R *.DFM}

procedure TAT.Execute;
var i : integer;
begin
Form2 := TForm2.Create(Form1);
Form2.Showmodal;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
for i := 0 to 1 do  
AT := TAT.Create(false);
end;

end.

// 안녕하세요 김영대 (http://www.howto.pe.kr )입니다

thread 를 사용해 보세요
프로세스당의 CPU 할당에는 제한이 있으므로 쓰레드같은것을
이용하여 CPU를 부분할당 받아야 할겁니다
아래는 그냥 thread 사용 예제인데 조금 수정하면 될겁니다

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls;

type
  timethread = class(Tthread)
  protected
    procedure execute; override;
end;


type
  TForm1 = class(TForm)
    timelabel: TLabel;
    mathButton: TButton;
    input1: TEdit;
    input2: TEdit;
    answer: TEdit;
    procedure mathButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  TIME_THREAD: TIMEthread;

implementation
{$R *.DFM}

{*****NOTE THAT THIS PROCEDURE IS FOR THE TIMEthread CLASS!!!!!!*******}
procedure timethread.execute;
var
  go: boolean ;
  timestring: string;
begin
  go := true;
  repeat
    timestring := formatdatetime('H:mm:ss am/pm',now);
    form1.timelabel.caption := timestring;
  until go = false;
end;

{**************************************************************************}
{*********this is all you need for this demo as far as the thread**********}

procedure TForm1.mathButtonClick(Sender: TObject);
begin
  answer.text:=inttostr(strtoint(input1.text)+strtoint(input2.text));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  time_thread:=timethread.create(false);
end;

end.

// Mike in the UK asks, "okay, but how do we turn that damn thread off?" Thank
// you, Mike... It's nice to know that someone is paying attention! :) Here's a
// REAL complicated example of how to go about it!!

procedure btn_PauseClick(Sender:tobject);
begin
  Time_thread.suspend;
end;

procedure btn_ResumeClick(Sender:Tobject);
begin
  Time_thread.resume;
end;

Procedure btn_KillClick(Sender:tobject);
begin
    Time_thread.terminate;
end;