Declaration

TMedResultRec = record
  Action: string;
  ResultPtr: string;
  DateTimeofAction: TFMDateTime;
  ResponsiblePerson: Int64;
  AlertsTo: TRecipientList;
end;