Delphi ListView

[snouwyt]

У меня есть программа которая читает файл, выводит и распределяет из него 3 значения по 3 столбцам(фамилия,оценка,кол-во)..у меня она просто читает всё и выводит, а нужно сделать чтобы производился подсчет всех чисел в строке и выводилось во 2 столбец с/а чисел, а в 3 кол-во вех чисел..прошу помочь

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    ListView1: TListView;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  OD:TOpenDialog;
  L:tstringlist;
  s:string;


implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
   L:=TStringList.Create;
   with L do
  try
    LoadFromFile('C:\aaa.txt');
     with TStringList.Create do
     try
          Delimiter := ' ';
          StrictDelimiter := True;

          for s in L do
          begin
            DelimitedText := s;
            with ListView1.Items.Add do
            begin
              Caption := Strings[0];
              SubItems.Add(Strings[1]);
              SubItems.Add(Strings[2]);
            end;
          end;
        finally
          Free;
        end;

    finally
      Free;
    end;


     end;

end.

[eval]

русский не родной?

[snouwyt]

всмысле? что не понятно?