Delphi Извлечение данных из файла txt

[ledenec]

Здравствуйте! У меня такая проблема, есть файл .txt там строки, первый элемент каждой строки - имя, далее идет ряд чисел, например:
АкцияМДМ 12,6 25,8 12,36 12 56 256
АкцияГазПром 55 987 688 256 125 256
.....
Надо чтоб считывались имена (первые эл-ты каждой строки) и записывались в Combobox, а далее считывались числа соответствующей строки. Будет два таких файла.
Сейчас сделала что в док-те только числа, и при выборе в комбобоксе элемента (вбила их вручную в свойстве Item) считываются данные и считаются по формуле и выводятся в Edit. Получился такой код:

TBumaga=class
doh:real;
procedure Dohod; virtual; abstract;
procedure DohObl1; virtual; abstract;
Constructor create;
end;

TAkcia=class(TBumaga)
procedure Dohod; override;
end;

TOblig=class(Tbumaga)
procedure DohObl1; override;

end;


var
Form2: TForm2;
mas: array[1..1000] of real;
i:integer;
kolvo:integer;
Bumaga: TBumaga;

implementation

{$R *.dfm}
Constructor TBumaga.create;
begin
inherited create;
end;


procedure TAkcia.Dohod;
begin
doh:=(mas[1]-mas[kolvo])*100/mas[kolvo];
Form2.Edit1.Text:=floattostr(doh);
end;

procedure TOblig.DohObl1;
begin
doh:=0.1*1000/mas[kolvo];
Form2.Edit1.Text:=floattostr(doh);
end;

procedure TForm2.ComboBox1Change(Sender: TObject);
var f,t:textfile;
begin
if Form2.ComboBox1.ItemIndex=0 then
begin
assignfile(f,'Àêöèÿ.txt');
reset(f);
i:=1;
while not eof(f) do
begin
read(f,mas[i]);
i:=i+1;
end;
i:=i-1;
kolvo:=i;
Bumaga:=TAkcia.create;
Bumaga.Dohod;
end;

if Form2.ComboBox1.ItemIndex=1 then
begin
assignfile(t,'Îáë1.txt');
reset(t);
i:=1;
while not eof(t) do begin
read(t,mas[i]);
i:=i+1;
end;
i:=i-1;
kolvo:=i;
Bumaga:=TOblig.create;
Bumaga.DohObl1;
end;
end;
end.

Помогите пожалуйста!!!!

[Grag]

Вот это

while not eof(f) do
begin
read(f,mas[i]);
i:=i+1;
end;


while not eof(t) do begin
read(t,mas[i]);
i:=i+1;
end;

работать не будет...
Здесь нужен парсинг строк, а уж строки разбивать на составляющие их слова...
И лучше использовать динамические массивы

[ledenec]

А подробнее можно по моему примеру?