uses Registry;
procedure AutoStart;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run', True);
Reg.WriteString(Application.Title, Application.ExeName);
Reg.CloseKey;
Reg.Free;
end;
