Вячеслав

Свой код у меня пока нет возможности выложить, попробуйте пока с данной темой ознакомиться:
[TidTCPServer] [TidTCPClient] Как отправить файл с сервера на клиент используя Indy10 и получить файл на стороне клиента?

Отписался по данной теме на форуме по ESP8266, выложил исходники. 

Статья: "Где можно посмотреть пример работы компонента TBitmapListAnimation?"

Спасибо за наводку!
TThread.Synchronize(nil, procedure begin MemoRequest.Text := ARequestInfo.RawHTTPCommand; end); Полёт нормальный)

Ну ладно, тогда вот вам кусочный рандом на примере одномерной задачи. 
Область значений Х состоит из двух областей (I) и (III). При этом Х может принимать значение либо из первой области, либо из второй [строчка (1)]
Определяем переменную FLAG, которая может быть только или нулем, или единицей [строчка (2)].
Теперь через нее нетрудно выразить уравнение для Х [строчка (3)]
 
Сейчас под рукой нет Delphi, поэтому проверить не могу. Но идея, надеюсь, понятна.

Ура, проблема решена! Вернее, глюк остался, но теперь его влияние локализовано. Для меня важным было использование жестов при полноэкранном режиме отображения без рамки. В Delphi XE7 это достигается путем установки свойства формы FullScreen в True, при этом BorderStyle необходимо оставить Sizeable. Тогда жесты работают.

Решение оказалось довольно простым. Кидаем на форму Layout, в него устанавливаем Lable и позиционирует таким образом, чтобы центр Lable находился в том же месте, что и верхний левый угол Layout. Сделать это нетрудно как в Design Time, так и в Run Time. После этого масштабируем Layout, что приведет к автоматическому масштабированию Lable относительно его центра.
Думаю, на этом тему стоит закрыть.