OnChange wird 3mal ausgeführt?

[Pseudemys Nelsoni]

hi,

ich habe folgende procedure im OnChange ereignis meines Edits:

Delphi-Quellcode:

procedure TForm2.Edit2Change(Sender: TObject);
var
  pass: pchar;
  apgard: array [0..8] of char;
begin
  if Length(Edit2.Text) = 8 then
  begin
    pass := pchar(Edit2.Text);
    apgar(pass, @apgard[0]);
    Edit2.text := apgard;
    showmessage('hi');
  end;
end;

ich kriege 3mal die message "hi" angezeigt. das ganze darf aber nur 1mal ausgeführt werden, was kan ich da machen?