TStringList - wysyłanie danych w Delphi za pomocą THGG.

Witam.
Potrzebuję pomocy i mam nadzieję, że tutaj ją uzyskam.
Chciałbym wysłać zawartość TStringListy za pomocą kontrolki THGG.
Nie wiem jak to zrobić, by wysłać ją w jednej wiadomości bez użycia komponentu Memo. Czy byłby w stanie ktoś przerobić kod, by nie była potrzebna kontrolka TMemo?

procedure TForm1.ReadValueList;
var
  I : Integer;
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('Software\Value', false);
  S := TStringList.Create;
try
  Reg.GetValueNames(S);
{pętla}
  for I:= 0 to S.Count -1 do
  Memo1.Lines.Add(S[I]);
  Memo1.Lines.Delete(Memo1.Lines.Count);
  TGG1.SendMessage(NUMER, Memo1.Text);
finally
  Memo1.Clear;
  S.Free;
  Reg.Free;
end;
end;

Pozdrawiam!

var
  I : Integer;
  Reg : TRegistry;
  Lines: TStringList;
begin
 Lines := TStringList.Create;
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('Software\Value', false);
  S := TStringList.Create;
try
  Reg.GetValueNames(S);
{pętla}
  for I:= 0 to S.Count -1 do
  Lines.Add(S[I]);
  Lines.Delete(Memo1.Lines.Count);
  TGG1.SendMessage(NUMER, Lines.Text); // Nie jestem pewien cd. Lines.Text
finally
  Memo1.Clear;
  S.Free;
  Reg.Free;
 Lines.Free;
end;
end;

Proszę.

Przepraszam, ale co wy w ogóle robicie? Nie mam i nie będę miał THGG, więc sobie piszę na sucho...

var
  Reg : TRegistry;
  Lines: TStringList;
begin
  Lines := TStringList.Create;
  Reg := TRegistry.Create;

  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('Software\Value', false);
    Reg.GetValueNames(Lines);
    TGG1.SendMessage(NUMER, Lines.Text);
  finally
    Reg.Free;
    Lines.Free;
  end;
end;

Ja tylko dodam, że THGG już nie funkcjonuje jak należy, ma problemy z wysyłaniem wiadomości, trzeba kilkakrotnie lub nawet więcej razy wysłać wiadomośc do samego siebie to się komponent "obudzi" wtedy. Polecam skorzystać z TEasyGG 0.2, póki co też nie jest rozwiajny, a szkoda. Nie wiem jakiej wersji Delphi używasz, ale niestety pod Delphi 7 Personal się nie skompiluje, bo wymaga modułów do obsługi XML'a. Można je zdobyć z wersji Enterprise, ale jak tworzysz aplikację komercyjną to chyba nie jest to za bardzo zgodne z licencją.

Wielkie dzięki za pomoc, co do komponentu THGG przerobiłem go kiedyś na własną rękę i działa. Muszę się podszkolić z TStringList. :)
Pozdrawiam.