Eduarcol. creo que lo resolvi con una pequeña variacion:
Código Delphi
[-]
var
Fecha:Tdate;
Ano, mes, dia: Word;
begin
Fecha:=Now;
DecodeDate(Fecha, ano, mes, dia);
Query1.Active := False;
Query1.sql.Text := 'select * From Tabla_personas where Extract(Month from FechaNato) = :mes';
Query1.ParambyName('Mes').AsFloat := Mes;
Query1.Active := True;
En todo caso muy amable sin tu ayuda.....Imposible para mi.
Gracias.
Corrijo lo de codigo SQL En que estaba pensando? Vi tu nuevo mensaje Eduarcol y aun mas agradecido quedo con tigo.
Abrazos.