в Main.h определяем наше событие

class TForm1 : public TForm
{
__published:	// IDE-managed Components
	TButton *Button1;
	void __fastcall Button1Click(TObject *Sender);

private:	// User declarations
public:		// User declarations
	__fastcall TForm1(TComponent* Owner);

// Определяем наше событие
	void __fastcall WMMove(TMessage &Msg);
BEGIN_MESSAGE_MAP
	VCL_MESSAGE_HANDLER(WM_MOVE, TMessage, WMMove)
END_MESSAGE_MAP(TForm)

};

в Main.cpp пишем обработчик события

void __fastcall TForm1::WMMove(TMessage &Msg)
{
    // Здесь форма уже перемещена
    int x = Left;
    int y = Top;

	// Например, выводим координаты
	Caption = "X=" + IntToStr(x) + " Y=" + IntToStr(y);
}