[digimon]

Подскажите пожалуйста, я создаю форму, на ней делаю процедуру TPaintBox, рисую изображение, но после запуска программы, изображение рисуется только после клика мыши. Как сделать, чтобы изображение сразу показывалось после запуска программы. Вот сам код процедуры.

Код:

procedure TForm1.PaintBox1Click(Sender: TObject);
var al6th, N, X: word;
begin
 with sender as tpaintbox, canvas do
 begin
 Brush.Color :=color;
 FillRect(clientRect);
 with ClientRect do
  Rectangle(Left, Top, Right, Bottom);
  al6th := PixelsPerInch div 16;
  N :=0; X:=0;
  while X <width do
  begin
  MoveTo (X,1);
  LineTo (x, 6*(1+(Byte(N MOD 2=0)+
   Byte(N MOD 4=0)+
   Byte(N MOD 8=0)+
   Byte(N MOD 16=0))));
  Canvas.Font :=Font;
  if (N>0) and (N mod 16=0) then
   TextOut(PenPos.X+3, PenPos.Y-16,
     IntToStr(N div 16));
   N:=N+1;
   X:=X+al6th;
   end;
  end;
end;

Admin: Не забываем про теги!

Убрать слово Click тут не катит( Подскажите