[angvelem]

Создавать RichEdit-ы я так понимаю не нужно:

Код:

var
RE : array [1..50] of TRichEdit;
begin
...
r:= rect(0, 0, RE[j].Width*screen.Pixelsperinch, RE[j].Height*screen.Pixelsperinch);
...
Sendmessage(RE[j].handle,EM_FORMATRANGE,1,longint(@fr));
RE[j].Height:=Trunc(screen.Pixelsperinch*fr.rc.bottom/1440)+8;
...
RE[i].Height:=RE[j].Height;
...