Код придумал сам, делать не чего было: var i,j: Longint;
implementation
{$R *.DFM}
procedure TForm1.Form1Show(Sender: TObject);
begin
borderstyle:=bsNone;
Color:=clBlack;
Align:=alClient;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=random(width);
j:=random(height);
canvas.pixels[i,j]:=sqr(i)*j;
end;
end.