Digite em 'Pesquisar Dica' o que deseja procurar. Ex: DBGRID

PESQUISAR DICA:

ADO - TRATAR ERROS

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('INSERT INTO CadAntimicrobianos (Aerobico, 
Codigo, Gram, Nome)');
    ADOQuery1.SQL.Add('VALUES ("", "", "", "")');
    ADOQuery1.ExecSQL;
  except on E: EOleException do
    begin
      ShowMessage(E.Message);
    end;
  end;
end;