Mobile form without capen

Procedure Wmmove (var message: twmnchittest; message wm_nchittest;

Procedure TForm1.Wmmove (var message: twmnchittest); begin message.result: = htcaption;