kısayol neden kopyalanmıyor???

[forumsad]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);								
var								
KAYNAK , HEDEF: String;								
begin								
  KAYNAK := ExtractFileDir(Application.ExeName)+'\11.exe';								
  HEDEF := 'C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\11.exe';								
								
  CopyFile( PChar(KAYNAK), PChar(HEDEF), false );								
								
  end;								

yukardaki kod ile kısayol kopyalayamıyorum neden acaba??