Zmienny tekst w Label

Jaki kod wklepać dla Formy w OnCreate aby za każdym uruchomieniem programu w Labelu był inny tekst.

leniwy jesteś...

http://4programmers.net/Forum/viewtopic.php?id=51314

Ale to musi być w onShow bo w OnCreate to o ile sie nie myle to ci sie program wysypie :-P

Randomize();
Label1->Caption = "";
unsigned char len = random(256);
for(unsigned char i=0; i<len; i++)
  {
   char znak = random(256)-128;
   /* lub ewentualnie w 2 (mniej krzaczkowej) wersji:
   znak = random(64)+65;*/
   Label1->Caption = Label1->Caption + znak;
  }

Nie często się powtórzy... (na oko 256^256 kombinacji)
:p :> [nie mogłem się powstrzymać]

:-D dobre Krecik :-)