Foto com ClientDataSet

Alguem poderia me passar uma rotina que grave foto direto no banco de dados Interbase com o componente ClientDataSet.....estou usando essa rotina e nao estah funcionando:

[i:6dc57137fc]var
FileStream : TFileStream;
BlobStream : TStream;
begin
if Arquivo <> EmptyStr then
begin
with Tabela do
begin
if (State in [dsInactive]) then
Open;
//se nao estiver em modo de insercao ou edicao
if not (State in [dsInsert, dsEdit]) then
Edit;

FileStream:=TFileStream.Create(Arquivo,fmOpenRead or fmShareDenyWrite);
BlobStream:=Tabela.CreateBlobStream(FieldByName(Campo),bmWrite);
try
BlobStream.CopyFrom(FileStream,FileStream.Size);
//Post;
ApplyUpdates(-1);
finally
FileStream.Free;
BlobStream.Free;
end;
end;
end;[/i:6dc57137fc]

obrigada,
K-ROL