Delphy 7 проблема с Edit

[Intripio]

Доброе время суток!
Есть форма. В форме порядка 30 Edit. По нажатию кнопки, все Edit.text (если они не заполнены) приравниваются к 0. Для каждого Edit приходится прописывать такое:
if Edit1.Text='' Then
begin
Edit1.Text:='0'
end;
1) Можно ли организовать какой нибудь цикл, который сам будет заполнять ВСЕ Edit на форме?

В Edit пользователь может вводить только числа, знаки минус и запятую.
Организовал это вот так:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Not (Key in ['0'..'9','-',',', #8])then Key:=#0;
end;

2)Как сделать, опять же для всех Edit, чтобы пользователь не смог ввести в Edit хрень типа: "-," или ",-". Т.к. при обработке подобных данных появляются ошибки. (Прописывать для кадоого Edit функцию IF с перечеслением возможных -, или ,- не охота).
Спасибо!

[vovk]

1

var
i:integer;
begin
 for i := 0 to self.ControlCount - 1 do
  if self.Controls[i] is TEdit then
  if (self.Controls[i] as Tedit).Text='' then
     (self.Controls[i] as Tedit).Text:='0';

2 Всем эдитам на Onkeypress выбрать 1 процедуру, можно сделать дизайнере, или назначить на создании формы таким же циклом.