Declaration

TActionRec = record
  Success: Boolean;
  Reason: string;
end;