[Страдалецъ]

Потому-что должно быть:

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);