I have two problems 1-I do not reload, big images problem because for richedit1SelectionChange(Sender: TObject); is there a way deselect or fast reload
2- Pen.Width := 5; 10,15,25, not change, always the same how can I change pen with
1. What this purpose of the code? Perhaps you should use a TImageEnVect instead of a TImageEnView, then you can iterate through each of the rectange objects and remove them.
2. TCanvas.FrameRect uses the brush for the boundary not the Pen: