uses  

  DateUtils,;  

  

function DateTimeToGMT(const ADate:TDateTime):string;  

const  

  WEEK:array[1..7] of PChar = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');  

  MonthDig:array[1..12] of PChar =  

    ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');  

var  

  wWeek,wYear,wMonth,wDay,wHour,wMin,wSec,wMilliSec:Word;  

  sWeek,sMonth:string;  

begin  

  DecodeDateTime(ADate,wYear,wMonth,wDay,wHour,wMin,wSec,wMilliSec);  

  wWeek := DayOfWeek(ADate);  

  sWeek  := WEEK[wWeek];  

  sMonth := MonthDig[wMonth];  

  Result := Format('%s, %.2d %s %d %.2d:%.2d:%.2d GMT',[sWeek,wDay,sMonth,wYear,wHour,wMin,wSec]);  

end;