Получить значение переменной из потока без создания глобальных переменных

void __fastcall Pars::Execute()
{
    Synchronize(&UpdateCaption);
}
//---------------------------------------------------------------------------
void __fastcall Pars::UpdateCaption()
{
    int k;
    k = Form1->ListBox3->Count + Form1->ListBox5->Count + Form1->ListBox6->Count;
    ShowMessage(k);
}

void __fastcall Pars::Execute()
{
    Synchronize(&UpdateCaption);
    ShowMessage (ReturnCountP());
}
//---------------------------------------------------------------------------
void __fastcall Pars::UpdateCaption()
{
    ReplaceCountP(Form1->ListBox3->Count + Form1->ListBox5->Count + Form1->ListBox6->Count);
}
//---------------------------------------------------------------------------
int __fastcall Pars::ReturnCountP() 
{
       return CountP;
}
 
void __fastcall Pars::ReplaceCountP(int count)
{
    CountP = count;
}

class Pars : public TThread
{
private:
    int CountProxy;
protected:
    void __fastcall Execute();
public:
    __fastcall Pars(bool CreateSuspended);
    void __fastcall Pars::UpdateCaption();
    int __fastcall Pars::ReturnCountP(); 
    void __fastcall Pars::ReplaceCountP(int count);
};

Synchronize(&ShowMessage(ReturnCountProxy()));
//или
Synchronize(ShowMessage(ReturnCountProxy()));

void Pars::MyShow()
{
  ShowMessage(...)
}
Synchronize(&MyShow);