O toto mi jde.
https://s9.postimg.org/6wsnlubqn/button.png

Když mam tablet na stojaka, je to ok.
Na ležato vidim jen par tlačitek.

Toto mi už funguje.

procedure TForm1.GridPanelLayout1Gesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
   case EventInfo.GestureID of
    sgiRight:
    begin
      pohnivravo;
    end;
    sgiLeft:
    begin
      pohnivlevo;
    end;
   end;
end;

Když přejedu prstem přes GridPanelLayout, vola to procedury pohnivravo a pohnivlevo.
Takže mi schazí 2 prcedurý, ktere přes FloatAnimation budou posouvat ten GridPanelLayout.

PS: Psal jsem v prvnim postu, že je delphi na počitači v praci.
Ty sample tam nejsou.
Daji se někde stahnout dodatečně?