var 
  vonLinksOben, vonLinksUnten, vonRechtsOben, vonRechtsUnten: TRect; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Position := poScreencenter; 
  vonLinksOben := rect(0, 0, 75, 25); 
  vonLinksUnten := rect(0, Screen.height - 25, 75, Screen.height); 
  vonRechtsOben := rect(Screen.width - 75, 0, Screen.width, 25); 
  vonRechtsUnten := rect(Screen.width - 75, 
    Screen.height - 25, Screen.width, Screen.height); 
end; 

procedure TForm1.FormShow(Sender: TObject); 
begin 
  DrawAnimatedRects(Handle, 3, vonLinksUnten, BoundsRect); 
end;