Бли-и-и-и-ин...
Ну для простоты примера написал цикл...
Что мешает передавать по элементу???
Код:
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);
Синтакс не проверял...