Code:


...

uses ... Registry, ...

...

var registry:tregistry;
begin
       registry:=TRegistry.create;
        try
        registry.RootKey:= HKEY_CURRENT_USER;
        registry.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',false);
        registry.WriteString('TvojProgram',application.ExeName)
        finally
           registry.closekey;
           registry.free;
        end;
end;