Без глобальных переменных.

bool fun(int x,int y)
{
  int z;
  //всякое
  return z;
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
       TShape *selFly;
 
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <jpeg.hpp>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
///////////////////////////
POINT form_pos_old;
RECT TrayWindowRect;
bool WPCx = false;
bool WPCy = false;
BYTE size_ = 15;  // OTSTUP
///////////////////////////
String cache = "";
String cache_BIG = "";
String ver_info = " - [WJ LFCe v0.2a]";
bool fail = false; // error status
//---------------------------------------------------------------------------
/*...*/
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Form1->DoubleBuffered = true;
    cache = ExtractFilePath( Application->ExeName ) + "cache\\";
    cache_BIG = ExtractFilePath( Application->ExeName ) + "cache\\cacheB\\";
    Memo1->Lines->Clear(); // clear LOG
    l("Start: OK"); // log
 
    Form1->Caption = String(Time()) + ver_info;
}
//---------------------------------------------------------------------------
/*...*/
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
bool fun( int x, int y);
{
if(x == y) return true;
else return false;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormClick(TObject *Sender)
{
  TPoint pt; // невижу смысла НЕ делать глобальный TPoint
/*
1) так как тратится время на создание TPoint
2) --- // ---  на уничтожение TPoint в конце функции
 
например если в таймере следить за позицией курсора, то гораздо удобнее, рациональнее использовать глобальный TPoint
*/
  GetCursorPos(&pt);
  int x = pt.x;
  int y = pt.y;
}
//---------------------------------------------------------------------------