Fórum Erro Stream Read Error #524928

Boa noite pessoal,

Sou novo no forum e estou precisando muito da ajuda de vocês, já procurei muito pela intenet e não consegui achar.

Vamos lá!

Estou utilizando o DELPHI XE7, com o banco FIREBIRD e o FIREDAC como componente para conexão com o banco. Na minha aplicação preciso salvar arquivos .PDF no banco, campo Blob. Estou fazendo da seguinte maneira, porém não está funcionando:

procedure TFrmDespesas.BitBtn1Click(Sender: TObject);
var
arquivo: TFileStream;
begin
arquivo := TFileStream.Create(edit1.Text, fmOpenRead or fmShareDenyWrite);
arquivo.Position := 0;
QryTeste.SQL.Add('UPDATE TABELA');
QryTeste.SQL.Add('SET CAMPOBLOB=:pdf');
QryTeste.SQL.Add('WHERE CODIGO = 1');
try
QryTeste.ParamByName('pdf').LoadFromstream(arquivo, ftBlob, 0);
QryTeste.ExecSQL;
ShowMessage('Salvo com Sucesso');
except
on e: Exception do
begin
ShowMessage(e.Message);
end;
end;
end;

Porém isso não está funcionando, sempre cai no except me retornando a seguinte mensagem: STREAM READ ERROR.

Alguém pode me ajudar, por favor? Desde já agradeço.