procedure TForm1.AutoRun;
var
Registry: TRegistry;
begin
Registry:= TRegistry.Create();
Registry.RootKey:= HKEY_CURRENT_USER;
Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
Registry.WriteString(ExtractFileName(Application.ExeName), Application.ExeName);
Registry.Free;
end;