ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

1) В коде, если в поле edit1 или edit2 пытатся ввести русскую букву то он ее просто не напишет

На OnKeyPress вешаешь

Код:

if (Key in ['А'..'Я','а'..'я']) then {тут чето делаешь}

Цитата:

2) в коде, если в поле edit1 меньше X символов или в поле edit2 меньше X символов, то сообщение и стоп на выполнение команд, если же нет то выполняем команды дальше

Код:

if (length(Edit1.text)<x) or (Length(edit2.text)<x) then
begin
  ShowMessage('ялярма!');
  exit;
end else 
begin

end;