[dr. F.I.N.]

Код:

procedure SetTextToEditByName(EditName, NewText: String);
var
  e: TEdit;
begin
  e := FindComponent(EditName);
  if e <> nil then e.Text := NewText;
end;

Примерно так (по имени).
Доработать для твоей заачи - 2 минуты (добавить цикл и что там еще).