Запись программы в реестр

[Sparky]

В чем ошибка? В реестр все прописывается но при перезагрузке прога не запускается

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Registry,ShellAPI;

type
  TForm_Client_sec = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Client_sec: TForm_Client_sec;

implementation

{$R *.dfm}

procedure TForm_Client_sec.FormCreate(Sender: TObject);
var
  i:integer;
  reg:Tregistry;
begin
{---------------------------------------------------------------------
                            добавление в реестр
----------------------------------------------------------------------}
try
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('SoftWare\Microsoft\Windows\CurrentVersion\Run',false);
  if not reg.ValueExists('Client_sec') then
    begin
    reg.WriteString('Client_sec','D:\MyWork\WinSec\Client_sec.exe');
    reg.CloseKey;
  end;
finally
  reg.Free;
{---------------------------------------------------------------------
                            вызов bat-файла
----------------------------------------------------------------------}
  i:=0;
  while i=0 do
  begin
    sleep(60000);
    ShellExecute(self.Handle,nil,'client_con.bat',nil,nil,SW_RESTORE);
  end;
end;
end;
end.

[raxp]

пути файла верные?
...шоб не ошибиться запись

 reg.WriteString('Client_sec','D:\MyWork\WinSec\Client_sec.exe');

лучше на

 reg.WriteString('Client_sec',application.ExeName);