[s0Creator]

В зависимости от размера файла и твоих предпочтений
либо считываешь файл построчно ( ReadLn ) либо загружаешь в TStringList ( LoadFromFile ).
Далее построчно обрабатываешь.
* и далее убираешь сразу чтоб не мешалось
и извлекаешь все по очереди.
Вот это может тебе облегчить жизнь

Код:

function ExtractSubstr(const S: string; var Pos: Integer;
  const Delims: TCharSet): string;
var
  I: Integer;
begin
  I := Pos;
  while (I <= Length(S)) and not (S[i] in Delims) do
    Inc(I);
  Result := Copy(S, Pos, I - Pos);
  if (I <= Length(S)) and (S[i] in Delims) then
    Inc(I);
  Pos := I;
end;

Например удаляем * и далее

Код:

    pos := 1;
    s := ExtractSubstr(s, pos,['*']);

А разбить по запятым можно используя свойства второго TStringList- Delimiter и DelimitedText
типа

Код:

list.Delimiter:= ',';
list.DelimitedText := s;