[Alegun]

Код:

type 
TMasCH = array [0..10,1..2] of Single;
...
procedure TForm1.LinearInterpolation (Voltage:Single;const CH:TMasCH);
begin
 case CH[0,1] of
   1: //CalTab_CH1
   2: //CalTab_CH2
   3: //CalTab_CH3
   4: //CalTab_CH4
 end;
end;
...

Добавлено немного позже

Сообщение от Jury_yamal

...процедура должна выводить рассчитанное значение в 4 Edita...

Код:

...
(FindComponent('Edit_CH' + IntToStr(CH[0,1])) as TEdit).Text:= rslt;
...