Ну дык надо было сократить, вот я и постарался
Возможно использование Result - это моветон, но неприятностей это не принесёт. Да и вообще-то компилятор Delphi вечно лается, что у вас объявлена переменная, но она нигде не используется, а у самих Result почти не используется