procedure TForm1.Button5Click(Sender: TObject);
var i:integer;
begin

  { Set up the connection string. }
  AdoQueryMySql.ConnectionString := Format(ConnString, [UserName, PassWord, Server]);

  try
    with AdoQuery1 do
       begin
         DisableControls;
         First;

             AdoQueryMySQL.SQL.Text := 'INSERT INTO `db`.`db_table`(`ArtikelID`, `ManufacturerName`, '+
                                       '`ManufacturerPN`, `Supplier`, `SupplierPN`, `Description`, `PhotoURL`,'+
                                       '`Price`, `Quantity`, `Currency`, Lagerplatz`) VALUES '+
                                       '(:ArtikelID, :ManufacturerName, :ManufacturerPN, :Supplier, :SupplierPN,'+
                                       ' :Description, :PhotoURL, :Price, :Quantity, :Currency, :Lagerplatz)';
             AdoQuery1.Open;
               while not AdoQuery1.Eof do begin
                  for i := 0 to AdoQuery1.FieldCount - 1 do
                       AdoQueryMySql.Parameters[i].Value := AdoQuery1.Fields[i].AsVariant;
                       AdoQueryMySql.ExecSQL;
                       AdoQuery1.Next;
               end;

       end;

  finally
    AdoQuery1.EnableControls;
    AdoQuery1.Close;
  end;

end;