UIN:= copy(SL.Strings[i],0,pos(';',SL.Strings[i])-1);
Pas:= copy(SL.Strings[i],pos(';',SL.Strings[i])+1,32);