void __fastcall TMainForm::btnZodiacClick(TObject *Sender)
{
  TDateTime TheDate(FCalendar->Date);
  unsigned short year = 0;
  unsigned short month = 0;
  unsigned short day = 0;
  TheDate.DecodeDate(&year, &month, &day);
  if (!chkAsync->Checked)
  {
    BSTR bstrSign = FZodiac.GetZodiacSign(day, month); // Uyj otoczki!
    WideString wstrSign = bstrSign;

    memLog->Lines->Add(_T("Znak zodiaku:"));
    memLog->Lines->Add(_T("  ") + wstrSign);
    memLog->Lines->Add(_T(""));
  }
  else
  {
    OLECHECK(
      FZodiac.GetZodiacSignAsync(day, month));
  }
}
