SELECT
    A_METER_DATA
FROM
    MAINTBL
    WHERE M_DATE = :lastday and MTBL_METER_ID = :mid

procedure TConsumptionForm.FormShow(Sender: TObject);
var
curmo:integer; lastday: tdatetime; res:real; firstday: tdatetime; eom:tdatetime;
begin
res:=1.00;
curmo:=1;
curmo:=MonthOfTheYear(System.SysUtils.Date)-1; //выбираем интересующий месяц, здесь ноябрь
eom:=Endofamonth(2018, curmo); // получаем последний день месяца
lastday:=eom;
Lastdayquery.SQL.Text:='SELECT A_METER_DATA FROM MAINTBL WHERE M_DATE = :lastday and MTBL_METER_ID = :mid';
Lastdayquery.SetParamValues([lastday, mid]); //mid - глобальная переменная номера текущего счетчика, поэтому не объявлена в процедуре, значение принимает правильное
Lastdayquery.ExecQuery;
res:=lastdayquery.FldByName['a_meter_data'].AsFloat; // получаем значение результата запроса, вот здесь на отладке постоянно появляется ноль!
SG.Cells[1,1]:=floattostr(res); // пишем результат в StringGrid
end;