[DELPHI] Unire due file eseguibile

[Dalton]

es:
1)
procedure TForm1.Button22Click(Sender: TObject);
var
fileSource, fileDest: string;
fileSource1, fileDest1: string;
begin
dbf4.Active:=false;
dbf5.Active:=false;
dbf6.Active:=false;
fileSource := 'C:\Des\DB\'+edit4.text+'\AREliminare.dbF';
fileDest := 'C:\DB\AREliminare.dbf';
CopyFile(PChar(fileSource), PChar(fileDest), False);
fileSource1 := 'C:\Des\DB\'+edit4.text+'\ARInserire.DBF';
fileDest1 := 'C:\DB\ARInserire.dbf';
CopyFile(PChar(fileSource1), PChar(fileDest1), False);
end;

2)
procedure TForm1.Button22Click(Sender: TObject);
var
i:integer;
begin

For I :=dbf8.ExactRecordCount downto 1 do
Button35Click(Sender);
For I :=dbf9.ExactRecordCount downto 1 do
Button32Click(Sender);

end;