A couple of function calls are needed.. simply use this piece of code:
procedure SetFileDate (TheFileName: string; aDate: string);
var
f : integer;
begin
f := FileOpen (TheFileName, fmOpenReadWrite);
try
FileSetDate (f, DateTimeToFileDate ((StrToDateTime (aDate))));
finally
FileClose (f)
end
end;