[NumLock]

or:

Код:

:=IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+'Documents';