Функция измерения шрифта

[Agafon]

Здравствуйте. Подскажите, кто знает.

У меня есть предложение. Мне надо его разбить по строково. Если строка превышает определенное значение, то надо сделать перенос на новую строку. Я реализую это так(это часть функции, которую я хочу поправить).

if (i>600) then begin
     str2:=str2+str0+#13#10;
     str0:='';
     str3:='';
     vxod:=vxod+1;
     end else begin
     str3:=str0;
     end;

Но это при учете, что все строки одинаковы. Подскажите как разбить предложение, на 3 строки с размерами 495, 545, 600(рх).
Должно получиться следующее: сначала заполняется первая строка, когда её порог превысит 495, то переходим на другую строку и так же с остальными.

У меня была идея, записать эти значения в массив, а потом уже с ним работать. Но у меня не получается реализовать массив и работать с ним.