procedure TForm1.FormTouch(Sender: TObject; const Touches: TTouches; const Action: TTouchAction);

var

  Touch: TTouch;

begin

  case Action of

    TTouchAction.None:

      Memo1.Lines.Add('TTouchAction.None');

    TTouchAction.Up:

      Memo1.Lines.Add('TTouchAction.Up');

    TTouchAction.Down:

      Memo1.Lines.Add('TTouchAction.Down');

    TTouchAction.Move:

      Memo1.Lines.Add('TTouchAction.Move');

    TTouchAction.Cancel:

      Memo1.Lines.Add('TTouchAction.Cancel');

  end;

  for Touch in Touches do

  begin

    Memo1.Lines.Add(Format('X=%f, Y=%f', [Touch.Location.X, Touch.Location.Y]));

  end;

end;