Birthday Greetings.....

procedure TfrmBirthday.FromClick(Sender: TObject);
var
SpecialDay : TEvent;
begin
frmBirthday.Caption := 'It's just a greeting!';
for SpecialDay := Birthday Greeting do
begin
if SpecialDay = Birthday then
begin
ShowMessage('Dear Zhen, May this day bring to you all things that make you smile. Happy Birthday !!! Regards from, Agnes.');
end;
end;