MonthCalendar if then kullanımda şaartlar

[dogan]

Selamlar...

MonthCalendar la başı dertte olanlardan da biri benim bugünün tarihi 15.05.2015 MonthCalendar daki tarih de 15.05.2015 if then işleminde şartlar eşit "=" olmasına rağmen küçüktür "<" komutu devreye giriyor nerede hata yapıyorum yoksa gözünden kaçan bir durum mu var anlayamadım...

Kod: Tümünü seç

procedure TForm8.KopyalaClick(Sender: TObject);
var
  i: Integer;
  SelArray: array of Integer;
begin
  Caption := datetostr(MonthCalendar1.Date);
  if MonthCalendar1.Date = Now then
  begin
    Application.MessageBox('Bugüne Kopyalama Yapamazsınız!', 'Hata!', 0)
  end
  else
  begin
    if MonthCalendar1.Date < Now then
    begin
      Application.MessageBox('Geçmiş Güne Kopyalama Yapamazsınız!', 'Hata!', 0)
    end
    else
    begin

[mrmarman]

now içinde saat de var. Now yerine Int( Now) kullanırsan bu sorunu aşarsın.