Faça sua janela tremer!!!

Bom, faz um tempinho que eu não apreço aqui, mas sei que estavam em boas mãos. Mas vamos ao assunto do post. 
Esses dias eu fiquei imaginando como a tela do MSN tremendo é chata, tanto 
que eu já até desabilitei esta opção do meu.
Fiquei pensando em como fazer isso em uma aplicação. Achei o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);
var
T, L, I : integer;
begin

T := Self.Top;
L := Self.Left;
I := 0;
while I <> 100 do
begin
Self.Top := T + random(40);
Self.Left := L + random(20);
inc(I);
end;
Self.Top := T;
Self.Left := L;

end;

Desculpem-me mas não me lembro a fonte de referencia. Mas funciona!!!
Espero ajudar!