functionRFC822DateGMT(dd:TDateTime):string;constDays:array[1..7]ofstring=('Sun','Mon','Tue','Wed','Thu','Fri','Sat');Months:array[1..12]ofstring=('Jan','Feb','M...