Как удалить ярлык из папки "Автозагрузка"?

[docbrain]

Доброе время суток.
У меня возник один вопрос относительно программирования в Delphi, помогите мне его решить.
Меня интересует как можно в Delphi удалить ярлык из папки "Автозагрузка". Я пробовал использовать команду DeleteFile, с указанием подробного пути к ярлыку, но это не сработало (вообще Windows сильно ограничивает работу с вышеупомянутой папкой). Я пробовал искать решение данной проблемы в Интернете, но ничего не нашел, что и заставило меня обратиться к вам.

Заранее с благодарностью и уважением,

доктор Брейн.

[uberchel]

Вот:

uses Registry;

procedure TForm1.btn1Click(Sender: TObject);
var
 Reg: Tregistry;
begin
  TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer\Shell Folders');
  DeleteFile(ReadString('Startup') + 'Имя ярлыка.lnk');
end;

[docbrain]

Код не работает. Во-первых, команду ReadString пришлось удалить, с ней не компилировалось. Во-вторых, даже когда все скомпилировалось без, ошибок, код оказался нерабочим. Ярлык все на том же месте, и ничего ему не делается.

[Пепел Феникса]

procedure TForm1.btn1Click(Sender: TObject);
var
 Reg: Tregistry;
begin
  TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer\Shell Folders');
  DeleteFile(Reg.ReadString('Startup') + 'Имя ярлыка.lnk');
end;

Уберчел малость пропустил, а вы могли бы и догадатся, что обьект Reg не просто так создается.

[uberchel]

Ого, блин, хех пропустил)) Хотел написать через with // do.
Вот, так хотел ))

procedure TForm1.btn1Click(Sender: TObject);
begin
 with TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer\Shell Folders') do
 begin
  DeleteFile(ReadString('','Startup','') + '\Имя Ярлыка.lnk);
  CloseKey;
  Free;
  end;
end;

[tavrocotaps]

итого, конечная версия:

 procedure TForm1.btn1Click(Sender: TObject);
var
 Reg: TRegistry;
begin
  Reg:=TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion Explorer\Shell Folders');
try
  DeleteFile(Reg.ReadString('Startup') + 'Имя ярлыка.lnk');
finally
 Reg.Free;
end;
end;