Kādam nav paskāla kods priekš loading banera?

Apmēram šāds (protams, ne tieši, ar paskālā pieejamajiem simboliem...)

http://www.vistawallpapers.ro/wallpapers/loa...te-1024x768.jpg

Un, lai piespiežot, tas sāktu lādēt, skaitītu procentus, un, kad būtu 100% aizvērtos piespiežot (principa vienalga, primārais ir loading baneris). Ja kādam kaut kur ir, būtu ļoti labi, ja varētu padalīties ar kodu, savādāk nez vai paspēšu to izdarīt, jo citas lietas vēl jādara. Ja būs diezgan labs, nebūtu žēl arī kādu expunktu noziedot. crazy.gif