Автоматический перенос строк

[Agafon]

Здравствуйте. Подскажите пожалуйста, как сделать автоматический перенос строк. Смысл вот в чем. Я формирую строку и измеряю её длину в пикселях, скажем она получилась 1800 пикселей. Далее я хочу сделать вот что, при выводе в окно, у которого ширина 600 пикселей, происходил автоматический перенос слова на нижнюю строчку и начинала заполняться вторая строка, и так далее пока вся сформированная строка не выведется в окно.

Примерно выглядит так:
string:=edit1.text; //Формирую строку
GetTextExtentPoint32 (memDC, PChar (st), Length (st), size); //Узнаю размеры.
Далее надо сделать проверку длины и перенос, если выходит за размеры:

if size.cx>600 then
begin
//а что тут писать не понимаю, подскажите пожалуйста.
end;

[mihali4]

Сообщение от Agafon

Далее я хочу сделать вот что, при выводе в окно

В какое-такое окно ?
Видимо, в какой-то компонент ? В какой ?

[_SERGEYX_]

А не проще ли для вывода этой строки использовать компонент у которого есть свойство WordWrap?

[Agafon]

Сообщение от mihali4

В какое-такое окно ?
Видимо, в какой-то компонент ? В какой ?

Окно - это просто другой эдит, у которого ширина 600 рх.

Использовать WordWrap мне не нужно, мне надо просто узнать сколько раз произойдет перенос.

Если были подобные обсуждения можно получить ссылку на них? Или где можно почитать об этом?

[Angel of Live]

В общем, заинтриговал ваш вопрос. Посидел, подумал..
Результат прикреплен в архиве.
В общем то работает, но иногда цикл повисает, к сожалению времени уже 1.30 ночи и хочется спать, мозг выключается, так что выкидываю как есть, думаю вы сами доработаете.
Удачи.