Что я делаю не так? Хочу залить doc-файл

procedure TForm1.Button2Click(Sender: TObject);
var
 bf: TBlobField;
begin
 ADOQuery1.Close;
 ADOQuery1.SQL.Text:='update reporter.sak_prog_ver s SET s.instruction=:pr WHERE s.id=3;'
                    +' commit;';
 ADOQuery1.Parameters.ParamByName('pr').LoadFromFile('C:/PicOxran/doc/Инструкция.doc', ftBlob);
 ADOQuery1.open;
end;
 
end.

procedure TForm1.BitBtn1Click(Sender: TObject);
var ins,ver,adr,info,name:string;
begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select id,name,ver,adr,info,instruction,date_instruction,date_ver,date_edit from sak_prog_ver where name like '+#39+ComboBox1.Items.Strings[ComboBox1.ItemIndex]+#39+' ORDER BY id ');
    ADOQuery1.Open;
    if Ins_name.Checked=true then ins:=' s.instruction=:ins, s.date_instruction=sysdate, ' else ins:='';
    if Ver_name.Checked=true then ver:=' s.ver=:ver, s.date_ver=sysdate, ' else ver:='';
    if Dir_name.Checked=true then adr:=' s.adr=:adr, ' else adr:='';
    if Info_name.Checked=true then info:=' s.info=:inf, ' else info:='';
    if Edit_name.Checked=true then name:=' s.info=:inf, ' else name:='';
    if ADOQuery1.RecordCount=1 then
      begin
          ADOQuery1.Close;
          ADOQuery1.SQL.Clear;
          ADOQuery1.SQL.Text:='update reporter.sak_prog_ver s'
                             +' SET '
                             +ins
                             +ver
                             +adr
                             +info
                             +name
                             +' date_edit=sysdate WHERE s.name like '+#39+ComboBox1.Items.Strings[ComboBox1.ItemIndex]+#39;
    if Ins_name.Checked=true  then ADOQuery1.Parameters.ParamByName('ins').LoadFromFile(Inct_prog.Text, ftBlob) else begin end;
    if Ver_name.Checked=true  then ADOQuery1.Parameters.ParamByName('ver').Value:=Ver_prog.Text else begin end;
    if Dir_name.Checked=true  then ADOQuery1.Parameters.ParamByName('adr').Value:=Adr_prog.Text else begin end;
    if Info_name.Checked=true then ADOQuery1.Parameters.ParamByName('inf').Value:=Info_prog.Text else begin end;
    if Edit_name.Checked=true then ADOQuery1.Parameters.ParamByName('pnm').Value:=Name_prog.Text else begin end;
 
          ADOQuery1.ExecSQL;
          ADOQuery1.SQL.Text:=' commit';
          ADOQuery1.ExecSQL;
      end
    else
      begin
        showmessage('ne odin')
      end;
end;