Editbox funktion gesucht

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Edit3Change(Sender: TObject); 
begin 
if edit3.text <> '' then
  begin
    if strtoint(edit3.text)=x then           //x ist hier der zahlenwert, mit dem verglichen werden soll... 
      label7.Caption:='Richtig!' 
    else 
      label7.Caption:='?'; 
  end;
end;

Aber bedenke, dass das onChange Ereignis immer ausglöst wird wenn
sich in den Text etwas ändert, also bei jedem Tastendruck.

Grüße
Klaus