[AlexSku]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var R: TRegistry;
begin
  R := TRegistry.Create(KEY_READ);
  try
    R.RootKey := HKEY_CURRENT_USER;
    R.OpenKey('Software\Microsoft\Windows\Curr entverison\Run', False);
    R.GetKeyNames(Memo1.Lines);
  finally
    R.Free;
  end;
end;