function GetCompiledDate : Pchar; begin result := PChar(DateTimeToStr(FileDateToDateTime(Fileage(Application.ExeName)))); end;