Человек из никуда

procedure TMainForm.FormShow(Sender: TObject);
...
begin
  an := DateToStr(StaticDate.Date);
  ...
  if an='10.06' then
    ShowMessage('С Днём рождения Анечка!!!');
  ...
end;