Substr(UploadWidget.Filename, Length(UploadWidget.Filename)-4 ,Length(UploadWidget.Filename)-1 )
Substr(Filename, Index(Filename,".",Length(Filename)-1,True,True) ,Length(Filename)-1 )