procedure APISrv2Loc(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: boolean)