[NumLock]

Код:

procedure TForm1.RichEditChange(Sender: TObject);
var
fr : TFormatRange;
r : TRect;
b : TBitmap;
//RE : array [1..50] of TRichEdit;
begin
 b:=TBitmap.create;