{ Этот кусок кода работает, но не
 сохраняет файлы больше 8Кб
TRY
 Q.Close;
 Q.SQL.Clear;
 Q.SQL.Add('INSERT INTO image_oid(id, blob) VALUES(2,:blob)');
 Q.ParamByName('blob').LoadFromFile(Edit1.Text, ftBlob);
 Q.ExecSQL;
 ShowMessage('OK');
EXCEPT
  ShowMessage('Failure');
END;
 Q.Close;
 Q.SQL.Clear;
 Q.SQL.Add('SELECT * FROM image_oid');
 Q.Open;}

blob := Q.CreateBlobStream(Q.FieldByName('blob'), bmWrite);
  try
    blob.Seek( 0 , soFromBeginning); 
    fs := TFileStream.Create(Edit1.Text, fmOpenRead or
      fmShareDenyWrite); 
    try 
      blob.CopyFrom(fs, fs.Size) 
    finally 
      fs.Free 
    end; 
  finally 
    blob.Free 
  end;

    Q.Post;