Guardar archivos en sql2000

[[kurono]]

E cambiado el tipo de datos a binary y escribe el siguiente codigo para cargar un archivo y me da error

Código Delphi [-]
 
begin
  if Open.Execute then
     begin
        dbedit4.text:=open.fileName;
        TBlobField(ADOTable1.FieldByName('archivos')).LoadFromFile(Open.FileName);
    end;
   else
    Open.Destroying;
end;

el error me dice invalid class typecast