Вам обязательно в полярных её рисовать?
У вас следующие ошибки:
1) X, Y надо увеличить с коэффициентом k = 10 (как бы zoom)
2) X, Y надо сдвинуть в центр объекта, на котором рисуете: (Я сдвинул на 200 пикселей вправо и вниз)
Код:
X := round(a + l * cos(phi) * 10 + 200);
Y := round(a * Tan(phi) + l * sin(phi) * 10 + 200);