procedure combind(f1, f2, f3: string);
var
ff1, ff2, ff: tmemorystream;
begin
ff1:= tmemorystream.create;
ff1.loadfromfile(f1);
ff2:= tmemorystream.create;
ff2.loadfromfile(f2);
ff:= tmemorystream.create;
ff.writebuffer(ff1.memory, ff1.size);
ff.writebuffer(ff2.memory, ff2.size);
ff.savetofile(f3);
ff.free;
ff1.free;
ff2.free;
end;