[darkamerico]

Hola, hice lo que me dijiste pero tampoco funcionó, mira colocaré a continuacion los bloques del código:

Código Delphi [-]
...
var
  Form5: TForm5;
  archivox, rutaEmisor, rutaSelecc:string;
  idEmisor, idTipDoc:integer;
...
procedure TForm5.btnExaminarClick(Sender: TObject);
begin
  if open.Execute then
  begin
      archivox:=open.FileName;
      archivox:=chr(39) + archivox + chr(39);
      lblFilename.Caption:=archivox;
      btnGrabar.Enabled:=true;
      btnGrabar.SetFocus;
  end;
end;

procedure TForm5.btnGrabarClick(Sender: TObject);
var
 Tam,FHandle,BytesEnviados, idDoc : integer;
begin
    FHandle := FileOpen(archivox, 0);
    Tam := Getfilesize(FHandle,nil);
    FileClose(FHandle);
    ...
end;
...

Haber si alguien ve que está sucediendo

Saludos