[Xan_naX]

то-есть вот эта процеДУРА:

Код:

procedure TForm1.Button6Click(Sender: TObject); 
 
  var sknn, skm:integer; 
       sknns:string; 
    begin 
      skm:=strtoint(edit5.Text); 
      sknn:= strtoint(edit3.Text); 
      form1.Label5.Caption:=sknns; 
      if m<-200 then form1.Timer1.Enabled:=false else begin 
    randomize; 
    for n:=1 to nn do begin 
      xx:=random(form1.Image1.ClientWidth-m) ; 
      yy:=random(form1.Image1.ClientHeight); 
      form1.Image1.Canvas.Pixels[xx,yy]:=clwhite; 
    end; 
    end; 
     nn:=(nn+5)+sknn; 
     m:=(m-4)-skm; 
     label3.Caption:=timetostr(time-t) ; 
    end;

Admin: Используем теги!

Почему экран мерцает?