procedure TForm1.FormCreate(Sender: TObject);
begin
FormStyle:=fsStayOnTop;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var x,y:integer;
begin
Randomize;
x:=random(800);
y:=random(600);         //我是比较懒了 呵呵 实现窗体抖动 就是把 算法在这个位置替换下   T.R

SetWindowPos(Form1.Handle,HWND_TOP,x,y,0,0,SWP_NOSIZE or SWP_ASYNCWINDOWPOS or SWP_SHOWWINDOW);    //测试成功
//MoveWindow(Form1.Handle,x,y,x,y,true);    //MW{zh1}3个参数要注意: x,y,true分别是 窗体宽,高,是否重绘窗体
end;

不多说 MSDN比谁说的都明白~ 是不是? 学习~ 学习~ 学无止境~