Was ist bei dieser function die eine Tsrtings verarb. falsch

[mkinzler]

TStrings ist eine abstrakte Klasse, eine implementierende Subklasse wäre z.B. TStringList

Delphi-Quellcode:

Function Tform1.Formatcode(Codesource:Tstrings):Tstrings;
Var liste, code:Tstrings;
i:integer;
begin
i:=0;
liste:=TStringList.Create;