[marcoszorrilla]

Código SQL [-]
 QMaxObra.Close;
   QMaxObra.SQL.clear;
   QMaxObra.Sql.Add('Select MAX(CLAVE_OBRA) As CLAVE_OBRA
  from OBRAS');
   QMaxObra.Sql.Add('Where CLIENTE ='+IntToStr(Cnt));
    QMaxObra.Open;

Un Saludo.