No me queda claro en cual linea te manda el error, si es en:
Código Delphi
[-]
FileStore.FieldByName('Nombre').Value := ExtractFileName(IWFile1.FileName);
o antes de iniciar el
Try, ya que donde comentastes, es una línea en blanco.
Mi experiencia en SQL Server es nula, por lo tanto en ese aspecto no te podría ayudar. Espero no mal interpretar el mensaje de error, pero a mi parecer, es que el campo no acepta archivos binarios. ¿Estás seguro de que el tipo de dato "varbinary" es un campo BLOB -por decirlo así-.
Por otro lado, por el momento intenta depurar el código, comenta el código que agrega la imágen -desde donde inicia el primer try-, también puedes modificar la asignación del campo "
NOMBRE" veo que en este momento la tienes así:
Código Delphi
[-]
FileStore.FieldByName('Nombre').Value := ExtractFileName(IWFile1.FileName);
intentala cambiar por:
Código Delphi
[-]
FileStore.FieldByName('Nombre').AsString := ExtractFileName(IWFile1.FileName);
Si aún, tu problema no se resuelve con esto, ve comentado cada asignación, una por una, hasta que encuentres donde está el pegón, a mi parecer es el tipo de dato, ya que según veo, el código está sin problemas.
Saludos.