Найти максимальное число в БД Access

...................
int k;
int i;
int max = 0;
int curr;
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->ADOTable3->Last();   //Переходим на крайнюю строчку
k = Form1->ADOTable3->Fields->Fields[0]->AsFloat;   //Тут я присуждаю переменной k кол-во всего записей в таблице
Form1->ADOTable3->First(); //Возвращаемся на первую строчку
for (i = 0; i<k; i++) //i - кол-во ходок и пока i будет меньше чем число всего строк мы не остановимся
                {
                Form1->ADOTable3->Fields->Fields[6]->Value == curr; //Присваиваем текущее значение
                if (curr >> max) // если оно больше чем максимальное
                        {
                        max == curr; // То максимальное число принимает его значение
                        }
                }
}

{
Form1->ADOTable3->Last();//Ïåðåõîäèì íà êðàéíþþ ñòðî÷êó
k = Form1->ADOTable3->Fields->Fields[0]->AsFloat; //Òóò ÿ ïðèñóæäàþ ïåðåìåííîé k êîë-âî âñåãî çàïèñåé â òàáëèöå
Form1->ADOTable3->First(); //Âîçâðàùàåìñÿ íà ïåðâóþ ñòðî÷êó
for (i = 0; i<k; i++) //i - êîë-âî õîäîê è ïîêà i áóäåò ìåíüøå ÷åì ÷èñëî âñåãî ñòðîê ìû íå îñòàíîâèìñÿ
                {
                Form1->DBGridRaboty->DataSource->DataSet->RecNo= 1+i; // Øàãàåì íà îäíó ñòðîêó âíèç
                curr = Form1->ADOTable3->Fields->Fields[6]->Value; //Ïðèñâàèâàåì òåêóùåå çíà÷åíèå
                Label1->Caption = max;
                if (curr >> max) // åñëè îíî áîëüøå ÷åì ìàêñèìàëüíîå
                        {
                        max = curr; // Òî ìàêñèìàëüíîå ÷èñëî ïðèíèìàåò åãî çíà÷åíèå
                        }
                                }
}