Там нечего считать...Опытным путем вычисляешь пропорцию размера шрифта и размера картинки...Например при картинке высотой 100 удобен шрифт 10...Т.е. шрифт 0,1 от картинки...Далее...
Код:
Canvas.Font.Size := Trunc((Image.Height) *0.1);
Trunc - нужна для отбрасывания дробной части...
Так же нужно пересчитывать положение надписи на картинке...