Вопрос Delphi. выдаёт ошибку (type of expression must be boolean delphi)

[Xaker_Pro]

Delphi. выдаёт ошибку (type of expression must be boolean delphi)
вот сам код docs.google.com/document/d/1QmKVx4q9H_06-rDjOF6PVRgUmqtBGMsXjjnOcDWYDlI/edit?usp=sharing

 

[aswef]

где исходный код? переменная не того типа.

 

[asd]

код на pastebin.com или ideone.com