Delphi, что не так? почему выдает ошибку на then?

Перед тем, как лезть в условия, отлистай несколько глав назад в учебнике/конспекте и прочитай уже, что такое оператор присваивания, а что — условные операторы.