C cwmdelpher Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-29 #3 for i := 1 to Length(s)do s := UpCase(s);