procedure TFormadddet.Button15Click(Sender: TObject);
var
  i:integer;
  filename,nomn:string;
  FileStream: TFileStream;
  BlobStream: TStream;
begin
  ADOQuery1.First;
  for i:= 0  to ADOQuery1.RecordCount do
  begin
    nomn:=ADOQuery1.FieldByName('codedet').AsString;
    ADOQuery1.Edit;
    BlobStream := ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('ris'),bmWrite);
    FileStream := TFileStream.Create('картинки/'+nomn+'.bmp',fmOpenRead or fmShareDenyNone);
    BlobStream.CopyFrom(FileStream,FileStream.Size);
    FileStream.Free;
    BlobStream.Free;
    ADOQuery1.Post;
    ADOQuery1.Next;
  end;
end;

/// Каталог
Class User3.rytkatalog Extends %Persistent [ SqlRowIdName = "", SqlRowIdPrivate ]
{

/// код детали
Property codedet As %Integer [ Required ];

Index codedetIndex On codedet [ Unique ];

/// типы деталей
Property typdet As %String(MAXLEN =  30 );

/// наименовни детали
Property naim As %String(MAXLEN =  60 );

Property cod1 As %String(MAXLEN =  10 );

Property cod2 As %String(MAXLEN =  10 );

Property cod3 As %String(MAXLEN =  10 );

Property cod4 As %String(MAXLEN =  10 );

Property cod5 As %String(MAXLEN =  10 );

Property cod6 As %String(MAXLEN =  10 );

Property cod7 As %String(MAXLEN =  10 );

Property cod8 As %String(MAXLEN =  10 );

Property mass As %Float;

Property gabar As %String(MAXLEN =  25 );

Property ris As %BinaryStream;

}