Stringlist und tobject zum Xten mal

[friedemann2009]

Liebe Leute,

ich werde echt verrückt, weil ich den Fehler nicht finde:

Delphi-Quellcode:

Procedure WerteInObject(liste: tstringlist);
var
  i: integer;
  Wort: string;
  Wert: string;
  templist: tstringlist;
begin
  templist:= tstringlist.create;
  try
    templist.assign(Liste);
    Liste.clear;
    for i:= 0 to templist.Count-1 do
      begin
        Wort:= GibmirBeleg(templist.strings[i]);
        Wert:= GibmirFStr(templist.strings[i]);
        Liste.AddObject(Wort, Tobject(Wert));
      end;

  finally
    templist.free;
  end;

  showmessage(liste.strings[5] + string(TObject(liste.objects[5])));
end;

Gibt Fehler. Kann mir jemand weiterhelfen, warum?!?

Danke und Gruß,
frieder