Me refiero a que pongas algo como:
Código Delphi
[-]
procedure TModificaciones_productos.Button_modificar(Sender: TObject);
begin
ADOQuery1.close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.add ('UPDATE productos SET producto="'+Edit_prod.Text+'",precio='+Edit_precio.Text+',stock='+Edit_stock.Text+',tipo_prod="'+Edi t_tipo.Text+'"');
ADOQuery1.SQL.add ('WHERE codigo = '+Edit_codigo.Text+'');
ShowMessage(ADOQuery1.SQL.Text);
ADOQuery1.open;
try
except
end;
end;
Para que veas como quedó la sentencia. Es posible que el problema venga del valor que tiene alguno de los Edits, por ejemplo, que esté vacío.
// Saludos