yaptım ama herhangi bir değişiklik olmuyor buttona basınca biraz daha açıklarmısın?
procedure TForm1.Button1Click(Sender: TObject);
var
n : integer;
s : string;
begin
for n:=1 to 10 do
begin
s := 'Edit'+inttostr(n); // yani edit1..edit10
TEdit(FindComponent(s)).Text := 'Bu edit '+inttostr(n) + ' nesnesidir';
caption := TEdit(FindComponent(s)).Name;
end;
end;