Was im geposteten Quelltext außer dem finalen "end." in der
Unit noch fehlt, ist die Zuweisung der EditKeyUp-Prozedur an die jeweiligen OnKeyUp-Events der drei Edit-Felder:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.OnKeyUp := EditKeyUp;
Edit2.OnKeyUp := EditKeyUp;
Edit3.OnKeyUp := EditKeyUp;
// außerdem wäre sehr empfehlenswert:
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
end;
Ohne diese Zuweisungen kann das ganze nicht wie beabsichtigt funktionieren.