[NIch]

Там нечего считать...Опытным путем вычисляешь пропорцию размера шрифта и размера картинки...Например при картинке высотой 100 удобен шрифт 10...Т.е. шрифт 0,1 от картинки...Далее...

Код:

Canvas.Font.Size := Trunc((Image.Height) *0.1);

Trunc - нужна для отбрасывания дробной части...
Так же нужно пересчитывать положение надписи на картинке...