Ну приблизительно как-то так

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Text:='INSERT INTO IMAGE(FieldName) ' +
'VALUES(:BlobField)';
ADOQuery1.Parameters.ParamByName('BlobField').DataType:= ftGraphic;
ADOQuery1.Parameters.ParamByName('BlobField').Direction:= pdInput;
ADOQuery1.Parameters.ParamByName('BlobField').LoadFromFile(DirectoryEdit1.Text,ftGraphic);
ADOQuery1.ExecSql;