(FindComponent('Edit'+IntToStr(i)) as TEdit).Text := IntToStr(i);