DateTimePicker; OnChange-Ereignis automatisch 2 mal???

[Memo]

Delphi-Quellcode:

 var
  Form1: TForm1;
     i: Integer;
implementation

{$R *.dfm}

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
    i:=i+1;
    if i = 1 then
       Showmessage(datetostr(DateTimePicker1.Date))
    else
      i:=0;
end;

Was dümmeres fällt mir auf die Schnelle nicht ein.