Hola por la respuesta, me mara un error "INVALID CLASS TYPECAST", no se como solucionarlo, en el sql el campo es varbinary, gracias
![Confused](http://www.clubdelphi.com/foros/images/smilies/confused.gif)
FileStore.open;
FileStore.Insert;
FileStore.FieldByName('ObjectTypeId').Value := 1;
FileStore.FieldByName('ObjectId').Value := IWDBLookupComboBox4.KeyValue;
FileStore.FieldByName('DocumentoTpId').Value := IWDBLookupComboBox5.KeyValue;
FileStore.FieldByName('Descripcion').Value := IWEdit1.Text;
FileStore.FieldByName('Nombre').Value := ExtractFileName(IWFile1.FileName);
{ACA MARCA EL ERROR INVALID CLASS TYPECAST}
try
blob := FileStore.CreateBlobStream(FileStore.FieldByName('ArchivoBin'),
bmWrite);
blob.Seek(0, soFromBeginning);
fs := TFileStream.Create(IWFile1.FileName, fmOpenRead or fmShareDenyWrite);
try
blob.CopyFrom(fs, fs.Size)
finally
fs.Free
end;
finally
blob.Free
end;
FileStore.Post;