[ABTOMAT]

pkfire, зачем And юзаешь? And - это конъюнкция, в данном случае не нужна. Если хочешь чтоб несколько операторов были выполнены подряд - пиши каждый на своей строчке. Или используй двоеточие, если хочешь уместить их в одну строку.

SetFont - в цикле не нужен совершенно.
И да, действительно реализация плохая.
Советую почитать справку по всем операторам, которые ты используешь. Видно явное непонимание того, что они делают, отсюда такие несуразности в коде.