Declaration

TServiceContext = record
  Changed: Boolean;
  Service: string;
  ServiceName: string;
  Ascending: Boolean;
  ConsultUser: Boolean ;
end;