[Electronic_Arts]

Код:

var
  sl: TStringList;
  i: integer;
  li: TListItem;
begin
     sl := TStringList.Create;
      sl.LoadFromFile( 'c:\text.txt' );
      for i := 0 to sl.Count-1 do
      begin
          if ( Trim( sl.Strings[i] ) <> '' ) then
            if ( Trim( sl.Strings[i] )[1] <> '#' ) then
               begin
                  li := ListView1.Items.Add;
                  li.Caption := Copy( sl.Strings[i], 1, Pos( ' ', sl.Strings[i] )-1 );
                  li.SubItems.Add( Copy( sl.Strings[i], Pos( ' ', sl.Strings[i] )+1, Length( sl.Strings[i] ) ) );
            end;

Читаем строку -
Привет Я ВАСЯ

li.Caption := Copy( sl.Strings[i], 1, Pos( ' ', sl.Strings[i] )-1 ); // добавляем первый текст до пробела Привет
li.SubItems.Add( Copy( sl.Strings[i], Pos( ' ', sl.Strings[i] )+1, Length( sl.Strings[i] ) ) ); // Добавляем остальное после первого пробела Я ВАСЯ

А как добавить текст после второго пробела на следуюший SubItems???? У меня чтот не получился.....