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