[Aristarh Dark]

Пусть, MainConnection:TADOConnection - это твое соединене с базой, тогда:

Код:

function GetFldMax(aTableName,aFieldName:String):Integer;
var
  Q:TADOQuery;
begin
  Q:=TADOQuery.Create(nil);
  with Q do
    begin
      Connection:=MainConnection;
      SQL.Text:=Format('SELECT MAX([%s]) as MAXIMUM FROM [%s]',[aFieldName,aTableName])
      Open;
      Result:=FieldByName('MAXIMUM').AsInteger;
      Close;
      Free;
    end;
end;

в функцию передается имя таблицы и имя поля по которому нужно получить максимум, как видно из кода поле должно быть целое.
Это, так сказать, скелет функции, тут еще требуется сделать обработчик ошибок.

пример использования:

Код:

var
  MyMax:Integer;
begin
  MyMax:=GetFldMax('Table1','Field1');
  ...
end;