Onpaint Опции

[LostHOpe]

Помогите кто-нибудь сделать правельной прорисовку изображения, иначе когда запускаеш программу и если провести другим окошком по ней всё исчезает.

Ето всё пишется вот сдесь
procedure TForm1.PaintBoxPaint(Sender: TObject);
begin


end;