[helper999999]

подскажите где ошибка, что не указал?

Код:

procedure CreateKeyRun;
var
  key:HKEY;
begin
RegOpenKey(HKEY_CURRENT_USER, PChar('SOFTWARE\MyProgmarINI'), Key);
  RegSetValueEx(key,'FileCode',0,REG_SZ,PChar('1'),lstrlen(PChar('1'))+1);
  RegCloseKey(key);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateKeyRun;
end;

Ключ не создается хотя при копиляции все нормально, и ошибок при работе не выдает.