Ввод символов с ограничением в компоненте TEdit (Delphi)

[zaira001002]

Никак не могу поставить ограничение. Нужно, чтобы не допускал ввод символов, как только количество цифр превысит 15. Множество Taxt: set of char я описываю в глобальных переменных. Вот вся моя процедура, подскажите ,пожалуйста, где у меня ошибка. Есть кнопки для ввода цифр, вводить с клавиатуры нельзя:

procedure TCalc.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  I: Integer;
begin
  Edit1.ReadOnly:= true;
  Taxt:=['0'..'9',',','-'];
  for i := 1 to Length(Edit1.Text) do
    begin
      if not(Edit1.Text[i] in Taxt) and (Key <> #08) then
      begin
        key:=#0;
      end;
    end;
  if (Length(Edit1.Text) > 15) and (Key <> #08) then
    key:=#0;
end;

[challengerr]

При нажатии на кнопки ввода цифр увеличивать глобальную переменную-счетчик количества нажатий, и когда она достигает 15 выключать кнопки.

Неизвестно количество символов, указанное в параметрах формы, которое может принимать Edit1. Оно может устанавливаться в окне опций.

Можно попробовать завести статическую переменную в процедуре (или использовать глобальную), которая будет увеличиваться каждый раз при попадании в эту процедуру.

[evg_m]

begin
  Edit1.ReadOnly:= true;

а это зачем? после первого же ввода ничего больше не ввести.
вполне достаточно

if key not in ['0'..''9',',','-',#8] then key:=#0;
if lengh(edit1.text)>15 and key<>#8 then key:=#0;

P.S. ваш цикл бесполезен поскольку он проверяет то что УЖЕ попало в Edit (т.е. только прошлые вводы).
А проверять надо текущий ввод (key in ....).

[zaira001002]

Спасибо, я сделала это задание)))