procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['A'..'Z', 'a'..'z','А'..'Я','а'..'я']) then
    begin
        Key := #0;
        MessageDlg('Вводите, пожалуйста, слова!', mtWarning, [mbOk], 0);
    end;
end;