procedure TForm10.FormCreate(Sender: TObject);
begin
Brush.Style:=bsclear;
Fx:=0;
end;
procedure TForm10.Timer1Timer(Sender: TObject);
var
i1,i2:integer;
begin
//****
Form10.Visible:=false;
//i1:=Random(800);
i2:=100;//Random(600);
inc(Fx,10);
if Fx>=1280 then
Fx:=0;
Form10.Left:=Fx;
Form10.Top:=i2;
Form10.Visible:=true;
Form10.Refresh;
label1.Refresh;
end;