Eu uso DbExpress
with SqlDataset1 do
begin
close;
commandtext:= 'INSERT INTO FOTOS (ID_CLI, FOTO) VALUES (:ID_CLI, :FOTO)';
ParamByName('ID_CLI').asinteger:= 1;
parambyname('FOTO').LoadFromFile(extractfilepath(application.exename) +
'IMAGEM.JPG', ftBlob);
ExecSQL;
end;
Deus abençõe a todos !!!