{$codepage utf8} {$mode objfpc} Uses sysutils, classes; Var ListaCadenas:TStringList; cad:ansistring; Begin ListaCadenas:=TStringList.create; ListaCadenas.text:=UTF8Encode('Esto será la primera línea'+#10+'Esto será la segunda línea'); For cad in ListaCadenas do Writeln(cad) End.