Declaration

TStatusContext = record
  Changed: Boolean;
  Status: string;
  StatusName: string;
  Ascending: Boolean;
end;