delphi 7 помогите с МЕМО

Question

r:=TRegistry.Create; 
r.RootKey:=HKEY_CURRENT_USER; 
r.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false); 
r.GetValueNames(Memo1.Lines); 
for i := 0 to memo1.Lines.Count - 1 do 
 with memo1 do begin 
r.ReadString(s); 
Lines.ADD(s); end; 
r.Free; 
______________________________________ 
когда я хочу 2 пути (добавляю еще раз этот код с другим путем) он перезаписывает мемо и остается только последний путь. Как сделать чтобы они добавлялись а не перезаписывались (s : string)

Олеся Кряжкова · Accepted Answer

Пример заполнения Memo из двух ключей реестра: 
 
unit N98385677; 
 
interface 
 
uses 
 Windows, SysUtils, Classes, Controls, Forms, 
 Registry, StdCtrls; 
 
type 
 TForm1 = class(TForm) 
 Memo1: TMemo; 
 Button1: TButton; 
 Button2: TButton; 
 procedure FormCreate(Sender: TObject); 
 procedure Button1Click(Sender: TObject); 
 procedure Button2Click(Sender: TObject); 
 private 
 procedure ScanRun(RootKey: HKey; Key: string); 
 end; 
 
var 
 Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm1.ScanRun(RootKey: HKey; Key: string); 
var 
 Values: TStringList; 
 Reg: TRegistry; 
 i: integer; 
begin 
 Values := TStringList.Create; 
 Reg := TRegistry.Create; 
 Reg.RootKey := RootKey; 
 Reg.OpenKeyReadOnly(Key); 
 Reg.GetValueNames(Values); 
 for i := 0 to Values.Count - 1 do 
 Values[і] := Values[і] + ' -- ' + Reg.ReadString(Values[і]); 
 Memo1.Lines.AddStrings(Values); 
 Reg.Free; 
 Values.Free; 
end; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
 Memo1.Clear; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
 ScanRun(HKEY_CURRENT_USER, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Run'); 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
 ScanRun(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Run'); 
end; 
 
end.

Виктория · Answer

Lines.Append(s);

Светлана Царькова · Answer

Если не ошибаюсь, r.GetValueNames(Memo1.Lines) здесь не нужен. 
А что это у Вас такой повышенный интерес к автозагрузке? Подозрительно как-то.