procedure SetCompany

procedure  SetCompany(const CO_ID: string; const CO_NAME: string);