function get_res_profile():String;
begin
result:=form2.root +'Cache\Users\'+GetLocalUserName+'sresp.wrp';
End;