const
    CM_THREADMSG = WM_APP + 8000;
. . . . . . . .

  protected
    procedure CMTHREADMSG(var Message: TMessage); Message CM_THREADMSG;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//  WORD WINAPI ThreadFunc( LPVOID );
function ThreadFunc(pMyParm : Pointer): DWORD; stdcall;
var
    i : Integer;
begin
    if Assigned(pMyParm) then begin
        Form1.Edit1.Text := IntToStr(PInteger(pMyParm)^);   -> 받은 핸들값이랑 아래 디버깅용에서 찍은게 변해여..
    end;

    Form1.ListBox1.Clear;
    Form1.ProgressBar1.Position := 0;
    Form1.ProgressBar1.Max := 2000;
    i := 0;
    while i <= 2000 do begin
        i := i + 1;
        Form1.ListBox1.Items.Add(IntToStr(i) );
        Form1.ProgressBar1.Position := i;
        Form1.ListBox1.ItemIndex := i;
    end;

    Form1.Edit1.Text := IntToStr(PInteger(pMyParm)^);       // 디버깅용 ( 여기서 찍어보면 쓰레드 2-3개 생성시킬때는 핸들값이 지맘대로 들어오다가 그 후론 또 제대로 들어오는데..? 뭘 모르고 있나요..??
    PostMessage(PInteger(pMyParm)^, CM_THREADMSG, 0, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    hThread, hMyForm : THandle;
    ThreadId : DWORD;
begin
    hMyForm := Form1.Handle;
    Edit3.Text := IntToStr(hMyForm);
    hThread := CreateThread(nil,0,@ThreadFunc,@hMyForm,0,hreadId);
    Sleep(10);
    if hThread = 0 then
    ShowMessage('Thread 생성실패');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    ThreadFunc(nil);
end;

procedure TForm1.CMTHREADMSG(var Message: TMessage);
begin
    Edit2.Text := '메세지받음';
    Edit2.Color := clYellow;
    inherited;
end;

end.