delphi 窗体抖动代码

const
tc1=2;          //抖动"尺度"
tc2=20;         //抖动"频率"
var
i: Integer;
t: Integer;
l: Integer;
seed: Integer;
begin
t:=Self.Top;

l:=self.Left;

seed := 0;

for i:=0 to 15 do

begin

      Application.ProcessMessages;

      case seed of

      0: begin

           self.Top := t + tc1;

           Self.Left := l + tc1;

           seed := 1;