SetWindowLong(RICH.Handle, GWL_STYLE, GetWindowLong(RICH.Handle, GWL_STYLE) xor WS_THICKFRAME);
 SetWindowPos(RICH.Handle, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER or SWP_DRAWFRAME or SWP_NOACTIVATE);

VAR
  S: string;
  R: TRect;
begin
  R := Rect(RICH.Left, RICH.Top, RICH.Width, RICH.Height);
  sImage1.Canvas.Font.Name := 'Arial';
  sImage1.Canvas.Font.Size := 8;
  sImage1.Canvas.Font.Color := sColorSelect1.ColorValue;
  sImage1.Canvas.Font.Style := [fsBold];
  sImage1.Canvas.Brush.Style := bsClear;
  s :=  RICH.Text;
  DrawText(sImage1.Canvas.Handle, PChar(s), -1, R,  TA_LEFT or   DT_WORDBREAK);
   FreeAndNil(RICH);
end;