Bertanya masalah error

Saya punya masalah ketika mengisi record ke database mysql lewat delphi, apa penyebabnya?

<a href='https://photos.app.goo.gl/rmUw4TTgctZ654FY6'>GAMBAR</a>

if strtoint(combo6.Text)>0 then
begin
    sql.text := 'INSERT INTO penjualan (no,kode_makanan, makanan_dan_minuman,harga,jumlah,total)'+'VALUES (6,B001,Lemon Tea,13000,'
  +quotedstr(combo6.Text)+','+quotedstr(inttostr(b1))+')';
    execsql;
end;