Fehlerhafte Ausgabe bei Stringlist+Verketteter liste

[Teekeks]

Danke!
Jetzt haut das mit dem String hin.
Das andere konnte ich so lösen:

Delphi-Quellcode:

function TReminderData.GetDates: TStringlist;
var hilfe1:PListe;
begin
  result:=TStringList.Create;
  hilfe1:=FListe;
  while hilfe1^.Next<>nil do
  begin
    result.Add(hilfe1^.Data.Info+'--'+DateAsString(hilfe1^.Data.Termin,'.'));
    hilfe1:=hilfe1^.Next;
  end;
end;