[webmasterplc]

Buenas,estoy pasando las funciones de consultas sql a archivos dll en mi aplicacion,pero la duda es capturar el resultado boleano de la consulta y como traerme elmresultado que me resulte de un select aqui dejo parte de mi codigo

Código Delphi [-]
//Guardamos Las Clasificaciones
function guardarclasificaciones(clas_nombre, clas_materiales, clas_herramientas, clas_equipos, clas_articulos:string): Boolean;
var
  q: TMyQuery;
begin
  q := TMyQuery.Create(nil);
  try
    q.Connection := con; // con is either TMyConnection or TMyEmbConnection already set up
    q.SQL.Clear;
    q.SQL.Add('INSERT INTO matdav_clasificacion(clas_nombre, clas_materiales, clas_herramientas,clas_equipos,clas_articulos) VALUES (:pnombre, :pmateriales, :pherramientas,:pequipos,:particulos);');
    q.ParamByName('pnombre').AsString := clas_nombre;
    q.ParamByName('pmateriales').AsString := clas_materiales;
    q.ParamByName('pherramientas').AsString := clas_herramientas;
    q.ParamByName('pequipos').AsString := clas_equipos;
    q.ParamByName('particulos').AsString := clas_articulos;
    q.Execute;
    Result:=q.Active;
  finally
    q.Free;
    con.Free;
  end;
end;
function borrarclasificaciones(clas_id:Integer): Boolean;
var
  qdelete: TMyQuery;
begin
  qdelete := TMyQuery.Create(nil);
  try
    qdelete.Connection := con; // con is either TMyConnection or TMyEmbConnection already set up
    qdelete.SQL.Clear;
    qdelete.SQL.Add('delete from matdav_clasificacion');
    qdelete.SQL.Add('where clas_codigo=:pid');
    qdelete.ParamByName('pid').AsInteger := clas_id;
    qdelete.Open;
    Result:=qdelete.Active;
  finally
    qdelete.Free;
    con.Free;
  end;
end;

Utiliso Mysql, Delphi Xe10.1 berlin