[Alegun]

Первое что пришло

Код:

begin
 a:= TStringlist.Create;
 a.LoadFromFile('work\3.txt');
 b:= 0;
 for i := 0 to a.Count-1 do
  begin
   if b > 0 then
    begin
     if (a[i] = '----') and (a[i+1] = 'SC') then exit;
     StringGrid8.Cells[0,b-1]:= a[i];
     StringGrid8.RowCount:= b;
     inc(b);
    end;
   if a[i] = 'SB' then b:= 1;
  end;
 a.Free
end;