Компоненты и их значения

[Миха]

Не подскажете как получить программно значение свойства компоненты по имени его
Например компонент Edit1 свойство Top как получить значение?

[Alex21]

А что тут сложного?
Вводим переменную такого же типа как и получаемая величина:
t:integer;

t:=edit1.Top;
{для наглядности можно вывести в компонент Label он должен быть на форме}
Label1.Caption:=IntToStr(t);

[Миха]

сори мне нужно вот что
например
Form1.Components[1].Name - я получаю имя компанента Edit1 например как получить его свойство Top

я хочу в цикле пробежаться по всем компонентам и получить зачение свойства ТОP всех компонентов по имени как это осуществить
for i:=0 to Form1.componetCount-1 do
begin
Form1.Components[i].Name

end;

[SERG1980]

var i: integer;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TEdit then
(Components[i] as TEdit).Top := .....;
end;
или
var a,i:integer;
begin
a:=0;
for i := 0 to ComponentCount - 1 do
if Components[i] is TEdit then
a:=a+(Components[i] as TEdit).Top;// или свои действия
edit1.Text:=inttostr(a);

[Миха]

оо спасибо большое