if(Button == TMouseButton::mbLeft){ ReleaseCapture(); SendMessage(Fmx::Platform::Win::WindowHandleToPlatform(Form1->Handle)->Wnd,WM_SYSCOMMAND,SC_MOVE | HTCAPTION,0); }
#include <FMX.Platform.Win.hpp>