Label1.Caption := Chr(32+random(32)) + Chr(32+random(32)) + Chr(32+random(32))+ Chr(32+random(32))+ Chr(32+random(32))+ Chr(32+random(32));