{$codepage utf8} {$mode objfpc} Uses sysutils, classes; Var Lista1,Lista2,Lista3:TStringlist; Begin Lista1:=TStringList.create; Lista2:=TStringList.create; Lista3:=TStringList.create; Lista1.add('Opcion 1'); Lista1.add('Opcion 2'); Lista1.add('Opcion 3'); Lista1.add('Opcion 4'); Lista2.add('Opcion 5'); Lista2.add('Opcion 6'); Lista2.add('Opcion 7'); Lista3.Addstrings(Lista1); Lista3.Addstrings(Lista2); Writeln(Lista3.text) End.