var PymstEnd:string;
   i,str_len,selInt:Integer;


begin
  selInt:=E_PYM.SelStart;
  E_PYM.text:=UpperCase(E_PYM.text);
  E_PYM.SelStart:=selInt ;
  str_len:=Length(E_PYM.text);
  PymstEnd:=UpperCase(E_PYM.text);