[aureli0]

Поиск на форуме ничего не дал(( Примерно что то похожее накидал мож кому пригодится:

программа смотрит тестовый файл с таким содержанием:
40;300;500;600;

и получает из файла 4 переменные, которые потом складывает.
var
res:resource;
line,symbol:string;
i,num,p1,p2,p3,p4,summa:integer;
var_array:array [0..3] of string;

begin

res := OpenResource('/222.txt');
line:= ReadLine(res);//считываем строку с переменными из файла ресурса

CloseResource(res);

num:=0;

repeat
for i:= 0 to Length(line) do
begin
if (num<=3) then
begin
symbol:=getchar(line,i);//считываем посимвольно ранее считаную строку
if (symbol<>';') then var_array[num]:=var_array[num]+symbol;//временная переменная складывается из текста строки
DrawText(var_array[num],0,20*num);//выводим процесс обработки
repaint;
delay(100);

if (symbol=';') then num:=num+1;//Если разделитель то переключаемся к следущей элементу массива временных переменных
end;

end;
until num>3;
//обрабатываем получая необходимые переменные из временноо массива переменных

p1:=StringToInteger(var_array[0]);
p2:=StringToInteger(var_array[1]);
p3:=StringToInteger(var_array[2]);
p4:=StringToInteger(var_array[3]);

//считаем сумму вписаных в ресурс значений
summa:=p1+p2+p3+p4;

Setcolor(0,0,0);
DrawText(IntegerToString(summa),0,100);
repaint;
Delay(1000);


end.