[Darken]

Надо, чтобы в поле можно было ввести только цифры, разделитель десятичных дробей и удаление, я реализовал это так:

PHP код:

procedure TForm3.sEdit2KeyPress(Sender: TObject; var Key: Char);  //EDIT2
begin
  case Key of
  '0'..'9', #8:;
  '.',',':  begin
            Key := DecimalSeparator;
            if Pos(DecimalSeparator,sEdit2.Text)<>0 then Key := #0;
            end;
  else Key:= #0;
  end;
end; 


Вся проблема в том, что я не пойму как прикрутить это дело для множества определенных полей Edit, т.к. писать вышеизложенное для каждого поля муторно.

И еще может кто подскажет как модернизировать код для того, чтобы если пользователь ввел первой цифрой 0 - автоматически менялось на 0 c разделителем десятичных знаков принятых в системе, т.е. с использованием DecimalSeparator.

Заранее благодарен