Mit Touch könnte Dir vielleicht folgendes Helfen:
Delphi-Quellcode:
xxx.MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if (ssTouch in Shift) then begin
// hier wischt jemand mit dem Finger ...
end
Oder beim Surface mit Stift:
(ssPen in Shift)