[san-46]

Пример на одном файле с картинкой.

Код:

procedure AnyProc;
var 
  MemStream : TMemStream;
  S : String;
begin
  //открыть диалог и выбрать файл (без понятия как вы там эти картинки 
  //выбираете для записи в базу
  if not OpenPictureDialog1.Execute then Exit;
  MemStream := TMemStream.Create;
  try
    MemStream.LoadFromFile(OpenPictureDialog1.FileName));
    SetLength(S, MemStream.Size);
    Move(S[1], MemStream.Buffer, MemStream.Size);
    DM.IBQuery2.Params[4].AsBlob:= S;
  finally
    MemStream.Free
  end;
end;