procedure TForm1.Timer1Timer(Sender: TObject);
begin
Canvas.Pixels[Random(Width),Random(Height)] :=clBlack;
end;