char str[]="QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm1234567890@#$_[]();:";

int MaxPass = 10 ; // Количество паролей
int MaxS    = 10 ; // Количество знаков

for (int y=0; y < MaxPass; y++) {
    
	for(int i=0;i<MaxS;i++)
	{

	int s = double((rand()%72));
	PassOut[i]= PassGen(s);
	PassOut[i+1] = '\0';
	
	}
   
   Form1->Memo1->Lines->Add(PassOut);

	
 }