Delphi - Como puedo haer para que me avice el programa

hola....
quisiera que me ayudaran en un problemita
les muestro el codigo.

procedure Tfrmfechahora.date1Change(Sender: TObject);
var
fecha:tdate;
anio,mes,dia:Word;
mesletra,dialetra:string;
begin
fecha:=date1.Date;
DecodeDate(fecha, anio, mes, dia);
edidia.Text:=inttostr(dia);
edimes.Text:=inttostr(mes);
edianio.Text:=inttostr(anio);
case dayofweek(fecha) of
1:dialetra:='Domingo';
..... etc
end;
case mes of
1:mesletra:='Enero';
.... etc
end;
edifecha.Text:= dialetra+', '+inttostr(dia)+' de '+mesletra+' de '+inttostr(anio);
edicumple.Text:= inttostr(dia)+' de '+mesletra;
end;

procedure Tfrmfechahora.time1Change(Sender: TObject);
var
hora:ttime;
hr,min,seg,ms:Word;
mesletra,dialetra:string;
begin

end;

procedure Tfrmfechahora.FormShow(Sender: TObject);
begin
date1.date:=date;
end;

end.

En edicumple aparece la fecha desglozada sin el año...
Como puedo comparar esta cadena con la fecha actual?, es decir si la fecha actual es igual a lo que esta en edicumple que me envie un mensaje por ejem:

if Date = edicumple.Text then
showmessage(' Fulanita o Sultanito cumple años hoy');

y que emita ese mensaje cada vez que se abra el programa

gracias y espero me puedan ayudar

Hola:

A ver si he entendido bien lo que estás haciendo.

Veo que tienes una variable "Fecha" (supongo que fecha de nacimiento) que es de donde sacas las cadenas edifecha.Text y edicumple.Text

- Puedes sacarlas directamente así:
edifecha.Text := FormatDateTime('dddd',Fecha)+', '+FormatDateTime('d "de "mmmm "de "yyyy',Fecha);
edicumple.Text := FormatDateTime('d "de "mmmm',Fecha)
Para formatear la hora: FormatDateTime('h:mm',Fecha);

- No necesitas comparar la cadena "edicumple", con la fecha actual. Puedes comparar la variable "Fecha" con la "Fechactual" que es lo mismo:

Si día de "Fecha" = día "Fechactual" y mes de "Fecha" = mes "Fechactual" entonces ..... loquesea

Utiliza las funciones DayOf, MonthOf . Están en la unidad DateUtils, o sea, que para que funcionen, debes añadir al uses DateUtils.

Suerte. Virum.

Intente con lo que tu me escribiste pero no se porque me marca error al declarar la DateUtils en el Uses no se si sea porque uso el DELPHI5
Gracias Virum

Hola:

Es posible que sea D5 que yo desconozco, pues te estoy hablando de D7.

Otra opción es la que te apunta Jesús.

Suerte. Virum.

A ver si he entendido, creo que lo que debes hacer es comparar la fecha
en formato numeros 'ddmm' con la siguiente expresión:
formatfloat('00', strtoint(copy (date,1,2))+formatfloat('00',copy(date,4,2))
Espero que te sirva