[:-)]

Прийдёться канвом рисовать:

Код:

with canvas do
lineto(0, 10);
...
end;