procedure TForm2.FormCreate(Sender: TObject);
Var RegF:TRegistry;
filename:string;
begin
try
filename:=(Application.Exename);
RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
if not regf.ValueExists('autorunpg') then
RegF.WriteString('autorunpg', ''+filename+'');
finally
RegF.Closekey;
RegF.Free;
end;
end;