[delphi-br] Arquivo Texto

[stainle2003]

não consigo a partir de dois arquivos texto juntá-los num terceiro, 
alguém sabe outra madeira ou o que está errado no código abaixo.
grato
Stainle

procedure TForm1.Button1Click(Sender: TObject);
var
    dirzip, destzip, dirtemp, sentenca : string;
begin
    dirzip := 'f:\usr\host\remoto\palm\filial99\plestdia.txt';
    destzip := 'p:\servidor\003\Saida\plestdia.txt';
    dirtemp := 'p:\servidor\003\Saida\Anterior\plestdia.txt';
    CopyFile(pchar(destzip), pchar(dirtemp), false);
    destzip := 'p:\servidor\003\Saida\pleststa.txt';
    sentenca := 'command.com /c copy ' + dirzip + ' + ' + dirtemp 
+ ' ' + destzip;
    ShowMessage(dirzip);
    ShowMessage(dirtemp);
    ShowMessage(destzip);
    ShowMessage(sentenca);
    WinExec(pchar(sentenca), sw_ShowNormal);
end;