Var _File : String;
    dt : TDateTime;
begin
    dt := StrToDateTime('21.11.2007 22:01:00');
    IOUtils.TFile.SetCreationTime(_File, dt);
end;

    dt := StrToDateTime('21.10.2007 22:01:00');

// © Николай Зверев
// http://www.delphinotes.ru/2011/02/utc-and-local-time-conversion.html

function UTCToLocalTime(AValue: TDateTime): TDateTime;
// AValue - время UTC
// Result - время с учётом локального GMT-смещения и правилами перехода на летнее время
var
  ST1, ST2: TSystemTime;
  TZ: TTimeZoneInformation;
begin
  // TZ - локальные настройки Windows
  GetTimeZoneInformation(TZ);
 
  // Преобразование TDateTime к WindowsSystemTime
  DateTimeToSystemTime(AValue, ST1);
 
  // Применение локальных настроек ко времени
  SystemTimeToTzSpecificLocalTime(@TZ, ST1, ST2);
 
  // Приведение SystemTime к TDateTime
  Result := SystemTimeToDateTime(ST2);
end;
 
function LocalTimeToUTC(AValue: TDateTime): TDateTime;
// AValue - локальное время
// Result - время UTC
var
  ST1, ST2: TSystemTime;
  TZ: TTimeZoneInformation;
begin
  // TZ - локальные (Windows) настройки
  GetTimeZoneInformation(TZ);
  // т.к. надо будет делать обратное преобразование - инвертируем bias
  TZ.Bias := -TZ.Bias;
  TZ.StandardBias := -TZ.StandardBias;
  TZ.DaylightBias := -TZ.DaylightBias;
 
  DateTimeToSystemTime(AValue, ST1);
 
  // Применение локальных настроек ко времени
  SystemTimeToTzSpecificLocalTime(@TZ, ST1, ST2);
 
  // Приведение WindowsSystemTime к TDateTime
  Result := SystemTimeToDateTime(ST2);
end;