Probleme mit vaList und vaCollection

[Prototypjack]

Moin!

Wie manch einer vielleicht schon weiss, schreibe ich seit Montag an einem Multilingual System. Mittlerweile steht bereits ein voll funktionsfähiger Prototyp alles was noch fehlt ist die Unterstützung von den Typen vaList (TStrings z.B.) und vaCollection (Die Columns bei einem Listview z.B.).

Ich komme an die Daten so heran wie sie in der DFM Datei stehen, also Plaintext. Die Frage ist jetzt:
Wie bekomme ich genannte Daten zur Laufzeit per RTTI (oder auch anders, wenn ihr irgendeine andere Methode kennt) in die entsprechende Eigenschaft einer Komponente?

Ich denke es hilft nicht viel, aber hier mal meine bisherige Methode zum setzen normaler Strings.

Delphi-Quellcode:

function TLanguage.SetPropertyW(AInstance: TComponent; APropertyName: WideString;
  APropertyValue: WideString): Boolean;
var
  lProperty: WideString;
  lSubPropertys: WideString;
  lComponentWProps: TComponent;
begin
  Result := False;
  lSubPropertys := '';
  lProperty := APropertyName;
  // Get the pure property name
  while Pos('.', lProperty) <> 0 do
  begin
    lSubPropertys := lSubPropertys + Copy(lProperty, 1, Pos('.', lProperty));
    Delete(lProperty, 1, Pos('.', lProperty));
  end;

  // Get the right property/component
  lComponentWProps := AInstance;
  if Assigned(lComponentWProps) then
  begin
    while lSubPropertys <> '' do
    begin
      lComponentWProps := TComponent(GetObjectProp(lComponentWProps,
        Copy(lSubPropertys, 1, Pos('.', lSubPropertys) - 1)));
      Delete(lSubPropertys, 1, Pos('.', lSubPropertys));
    end;
  end;

  // Now set the property
  if Assigned(lComponentWProps) then
  begin
    if IsPublishedProp(lComponentWProps, lProperty) then
    begin
      SetWideStrProp(lComponentWProps, lProperty, APropertyValue);
      Result := True;
    end;
  end;
end;

Ich hoffe, dass mir jemand helfen kann
Gruß,
Max