В обработчике событий FormActivate вписываем:

var
i,x,y:integer;
begin
x:=(screen.Width-form1.Width)shr 1;
y:=(screen.Height-form1.Height)shr 1;
for i:=0 to 255 do
begin
setwindowpos(handle,HWND_TOP,
x+round(y*(1-i/255)*cos(i*pi/127.5)),
y+round(y*(1-i/255)*sin(i*pi/127.5)),
form1.Width,form1.Height,
SWP_NOSENDCHANGING );
AlphaBlendValue:=i;
Application.ProcessMessages;
end;

Вот и все))) Теперь форма будет появляться, крутясь!