Очищение отдельных Edit полей.

[Mrsqler]

В общем есть форма(From1) на ней лежит PageControl,на самой первой странице лежит GroupBox1,а на самом GroupBox1 лежат 9 полей Edit.Нужно чтобы по нажатию на кнопку(которая тоже лежит в GroupBox1) очищались все Edit поля лежащие в GroupBox1.
Вот код,но или ничего не происходит,или выдается ошибка,[Pascal Error] Kramer.pas(139): E2003 Undeclared identifier: 'TabSheet1'

For i:= 0 to Form1.PageControl1.TabSheet1.GroupBox1.ComponentCount - 1 do
 if Form1.PageControl1.TabSheet1.GroupBox1.Components[i] is TEdit then
  (Form1.PageControl1.TabSheet1.GroupBox1.Components[i] as TEdit).Text := '';
end;

Что не так?

[Karych]

эдиты принадлежат форме!

For i:= 0 to Form1.ComponentCount - 1 do
 if Form1.Components[i] is TEdit then
  TEdit(Form1.Components[i] as TEdit).clear;

[Noor]

Ну или так

var
I : Integer;
begin
with Form1 do
begin
for I := 0 to ComponentCount - 1 do
begin
if (Components[i] is TEdit) then
begin
if I in [1..9] then
(Components[i] as TEdit).Text := '';
end;
Application.ProcessMessages;
end;
end;
end;

Таким же способом можно сразу задать один текст для всех Edit путем редактирования строки

(Components[i] as TEdit).Text := 'тут_Ваш_текст';

[Mrsqler]

Это не совсем то,он очищает абсолютно все Edit которые есть на Form1.Дело в том,что у меня на этой форме лежит два групбокса, GroupBox1 и GroupBox2 .
И в каждом из них есть поля Edit.Так вот мне нужно,чтобы очищались поля Edit только в первом гупбоксе GroupBox1,а во втором всё оставалось без изменения.

[_SERGEYX_]

Эх, можно бы догадаться заменить
with Form1 do
на
with GroupBox1 do

[Mrsqler]

Заменял,но ничего не происходит,Edit не изменяется.

begin
For i:= 0 to  GroupBox1.ComponentCount - 1 do
 if  GroupBox1.Components[i] is TEdit then
  ( GroupBox1.Components[i] as TEdit).Text := '';
end;

[demigod82]

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

[Mrsqler]

Да я знаю,поэтому и пришел сюда)

[_SERGEYX_]

А так?

var i: Integer;
begin
For i:= 0 to  GroupBox1.ControlCount - 1 do
 if  GroupBox1.Controls[i] is TEdit then
  ( GroupBox1.Controls[i] as TEdit).Text := '';
end;

[Mrsqler]

Да,так всё работает)Благодарю.