Bienvenido Eduardo:
Para el mes actual, prueba a utilizar las funciones
DecodeDate y EncodeDate.
Código Delphi
[-]
Var
dia,mes,anno:Word;
begin
DecodeDate(Date,anno,mes,dia);
EncodeDate(anno,mes,1);
end;
Para el final de mes, incrementas el mes en 1, pones el día en 1,le restas uno y tienes el final de mes.
Un Saludo.