[[eduarcol]]

Segun me comentan puedes utilizar asInteger en lugar de asFloat, incluso Value, si nada de esto funciona nos vamos a los extremos

Código Delphi [-]
var
   nAyo, nMes, nDia: double;
begin
   DecodeDate(Date, nAyo, nMes, nDia);
   MiQuery.Active := False;
      MiQuery.sql.Text := 'select * from tabla_personas where Extract(Month from FechaNato) = ' + FloattoStr(nMes);
   MiQuery.Active := True;

end;