[PS11011010]

Код:

for i := 0 to RichEdit1.Lines.Count - 1 do
 if MaxWidth < RichEdit1.Canvas.TextWidth(RichEdit1.Lines.Strings[i]) then
   MaxWidth := RichEdit1.Canvas.TextWidth(RichEdit1.Lines.Strings[i]);

Вроде ничего не наврал...
Так ты получишь ширину самой длинной строки.