Set file date

function SetFileDate(FileName : String; FileDate : TDateTime): Boolean;
var
  FileHandle : THandle;
  FileSetDateResult : Integer;
begin
  try
    FileHandle := FileOpen(FileName, fmOpenWrite OR fmShareDenyNone);
    if FileHandle > 0 Then
    begin
      FileSetDateResult := FileSetDate(FileHandle, DateTimeToFileDate(FileDate));
      result := (FileSetDateResult = 0);
    end;
    FileClose(FileHandle);
  except
    Result := False;
  end;
end;