[cbrrr]

Podria ser algo así......

Código Delphi [-]
 var
   i: integer;
 begin
   i := 0; // inicializamos variable  
   Query.SQL.Clear;
  Query.SQL.Add('select * from tabla');
  Query.SQL.Add('WHERE id > 6');
  try
    Query.Open;
    if not Query.IsNull then
      i := Query.FieldByName('MiCampo').AsInteger;
  except
    // control de error en la sentencia SQL
  end;
end;