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