delphi adotabl

var 
FileStream:tstream; 
begin 
    filestream:=tmemoryStream.create; 
    filestream:=XXX.LoadfromFile(FileName); 
                      ReportStream.Position:=0; 
                    ADOTabl.edit; 
                    TBlobField(ADOTabl.FieldByName(FieldName)).LoadFromStream(filestream); 
                    ReportStream.Free; 
                    ADOTabl.UpdateBatch; 
end;