Well... :-P i'm not good too... but i think that the problems is: List0 and List1 are pointers to an TStringList Object... so, the right sentence must be:
List0 := TStringList.Create; List1 := TStringList.create; intead List0.create; List1.create; ".Create" are a class method that give a pointer to the created object... And the same for free them: List0.Free; List1.Free; intead List0.Destroy; List1.Destroy; :-) Other issues: * The Result of the function "CleanList" is never assigned! * As Parameter... change: procedure My_Proc(var SL :TstringList); to procedure My_Proc(Const SL :TstringList); :-) hope that this can help you! :-P _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
