{
OnResizeRequest example
The following code resizes the rich edit control to accommodate growing or shrinking lines of text:
} 
procedure TForm1.RichEditResizeRequest(Sender: TObject; Rect: TRect);
begin
(Sender as TRichEdit).BoundsRect := Rect;
end; 
