ADOQuery1.SQL.Add('SELECT MAX([Затраты-На-Производство]) as MaxValue FROM bd1'); ADOQuery1.Open; ShowMessage('Фирма с макс. затратами ' + IntToStr(ADOQuery1['MaxValue']));