procedure StartFromRegistry(appName,appPath:string);
var

reg: TRegistry;
begin

reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',
true{canCreate});
reg.WriteString(appname,appPath);
reg.CloseKey;
reg.free;
end;