При использовании Name1.Text := '' если вводимый символ запрещен, то опустошится все поле, а это есть плохо. Вот как надо:
Код:
procedure TForm2.Name1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key in ['A'..'z'] Then Key := #0;
end;