var st1,st2,st3:tstringlist;
begin
    st1:=tstringlist.Create;
    st2:=tstringlist.Create;
    st3:=tstringlist.Create;        st1.LoadFromFile(file1);
    st2.LoadFromFile(file2);
    st3.AddStrings(st1);
    st3.AddStrings(st2);
    st1.free;
    st2.free;
    st3.free;
end;