[AND_REY]

Если по байтно то можно так:

Код:

Var
 F, G: File of Byte;
 B: Byte;
begin
AssignFile(F, 'C:\in.exe');
AssignFile(G, 'C:\out.exe');
Reset(F);
Rewrite(G);
While Not Eof(F) Do
 begin
  Read(F, B);
  Write(G, B);
 end;
CloseFile(F);
CloseFile(G);
end;