[lmikle]

Бли-и-и-и-ин...
Ну для простоты примера написал цикл...
Что мешает передавать по элементу???

Код:

Sources[1] := Dmin;
Sources[2] := lnas;
...

PS. Да, ягляжу, что у тебя числа не целые. Соответсвенно, надо поменять типа на Double...

PPS. Кстати, через RTTI можно попробовать и через цикл передать... что-то типа

Код:

For I := Low(Sources) To High(Sources) Do
  Sources[i] := StrToFloat((FindComponent('Edit'+IntToStr(I)) As TEdit).Text);

Синтакс не проверял...