Juntar dos archivos en uno

[JuanErasmo]

procedure TForm1.Button1Click(Sender: TObject);
var
  fsDestino: TFileStream;

  procedure AddToStream(AFileName: TFileName);
  var
    fsOrigen: TFileStream;
  begin
    fsOrigen := TFileStream.Create(AFileName, fmOpenRead);
    Try
      fsDestino.CopyFrom(fsOrigen, fsOrigen.Size);
    finally
      fsOrigen.Free;
    end;
  end;
begin
  fsDestino := TFileStream.Create('C:\MIEXE.EXE', fmCreate);
  Try
    AddToStream('C:\WINDOWS\CALC.EXE');
    AddToStream('C:\WINDOWS\NOTEPAD.EXE');
  finally
    fsDestino.Free;
  end;
  WinExec('C:\MIEXE.EXE', SW_SHOW);
end;

Gracias si alguien sabe como se traduce...intenté pero tuve problemas par declarar el TFileStrema sin argumentos....