[delphi] Problem z rejestrem

Mam procedurkę napisaną w WinApi ale ona nie działa :

procedure start;
var
klucz:Hkey;
tymczasem:string;
begin
RegOpenKeyEx(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Run',0,KEY_READ,klucz1) ;
tymczasem:=(ParamStr(0));
if autostart=1 then if RegSetValueEx(klucz1,pchar('TaskiView'),0,REG_SZ,Pchar(tymczasem),length(tymczasem)+1)&lt&gtERROR_SUCCESS then begin halt;end;
if autostart=0 then RegDeleteKey(klucz1,'TaskiView');
RegCloseKey(klucz1);
end;

autostart to zmienna gdzie : 0-to program ma się nie uruchamiać przy starcie systemu
a 1 odwrotnie

Pytanie co wtym jest nie tak że nie działa !!!

Proszę o podpowiedź.

Potrzebuje rozwiązania tylko w WinApi.

Biernacki Arkadiusz Szczecin (ABJ)

Tak na pierwszy rzut oka to zaniepokoiło mnie czemu w var-ach podałeś wartość klucz a w funkcji urzyłeś klucz1
To tylko na pierwszy rzut oka. Może coś jeszcze :-/ --I LOVE PrOgRaMz