Добавление из edit1

procedure TForm1.Button3Click(Sender: TObject);
var JpegIm: TJpegImage;
    fn:string;
begin
.....
      with ADOQuery1 do 
       begin
      
      sql.text:='insert into tab_Image(Pathimage,nomber) values ('+QuotedStr(fn+'.jpg')+', ????????)';
      execsql;
end;
end;

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
begin
ADOQuery.SQL.Text:='INSERT INTO table(Pathimage,nomber) VALUES('''+fn+'.jpg','''+EDIT1.Text+'') ';
end;
ADOQuery1.ExecSQL;
ADOQuery1.Open;

Edit1.Clear;

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
begin
ADOQuery.SQL.Text:='INSERT INTO table(Pathimage,nomber) VALUES('''+fn+'.jpg','''+EDIT1.Text+'') ';
end;
ADOQuery1.ExecSQL;
ADOQuery1.Open;
Edit1.Clear;

sql.text:='insert into tab_Image(Pathimage,nomber) values (:PathImage, :nomber)';
Parameters.ParamByName('PathImage').Value := fn+'.jpg';
Parameters.ParamByName('nomber').Value := StrToInt(Edit1.Text);
а может и
Parameters.ParamByName('nomber').Value := StrToFloat(Edit1.Text);

if Length(Edit1.Text)=0 then
ShowMessage('поле пустое')
else
//ваши действия;