CreateHardLink しても只のコピーが作られるだけでハードリンクにならないんですけど何でですか？

LinkName  := ExtractFilePath(Application.ExeName) + 'hoge2.pas';
ExistName := ExtractFilePath(Application.ExeName) + 'hoge1.pas';

if CreateHardLink(PChar(LinkName), PChar(ExistName), nil) then
 ShowMessage('おｋ')
else
 ShowMessage('(ﾟДﾟ)');