Неадекватная работа TextWidth

[finder_sl]

Доброго времени суток!
Вот в чем вопрос...
Есть программа, которая должна нарисовать табличку(скриншот прилагается) и заполнить ее значениями. Так вот, написал функцию, которая подбирает нужный размер шрифта, чтобы текст поместился.
Вот она:

function TMain.getFontSize(width, height, procentZapolnenia: integer; text:string): integer;
var i: integer;
begin
i:=1;
repeat
can.Canvas.Font.Size:=i;
i:=i+1;

until ((can.Canvas.TextWidth(text)>(trunc(abs(width)*procentZapolnenia/100)))or(can.Canvas.TextHeight(text)>(trunc(abs(height)*procentZapolnenia/100))));

Result:=i-1;
end;

В параметрах widht и height - ширина и высота ячейки, в которую вписываем, procentZapolnenia - процент заполнения ячейки, text - текст для которого будем определять размер шрифта.
Так вот работает она почему то совершенно неадекватно: для первой ячейки она выбирает слишком большой шрифт. Более того, для случаев, когда длина text равна не 2м символам, все работает прекрасно...
Пробовал вставлять трассировочный ShowMessage в цикл, там совсем все грустно... Сначала ширина шрифта растет пропорционально его размеру, а затем начинает прыгать влево-вправо...
Помогите разобраться!!

[savva]

отладчиком по программе пройдись.


trunc(abs(width) --ширина кого, чего?
trunc(abs(height)--высота кого,чего?

[ex.cluz]

can.Canvas.Font.Size:=116;

А это что?

[finder_sl]

для savva:
Отладчиком ходил... Все ходит как положено.. Единственный косяк я написал.. Его видно если вставить ShowMessage внутрь цикла...

width и height написано вроде... Ширина и высота ячейки, куда вписываем...

для ex.cluz:
прозевал... Это пока отлаживал написал... Исправил как надо... по прежнему не работает((

[savva]

ты ячейки рисовал что ли?или где стандартный StringGrid?
что за can.canvas??к чему относится can?возможно и trunc должен относится к can?

полный код приведи сюда ни черта не понятно.