1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

type
  TListItemsLoadHelper = class helper for TListItems
  public
    procedure LoadFromFile(AFileName: TFileName);
  end;

  TListItemTextHelper = class helper for TListItem
  private
    function GetText: string;
    procedure SetText(const Value: string);
  public
    property Text: string read GetText write SetText;
  end;

  TFormX = class(TForm)
  ...

implementation

{ TListItemTextHelper }

function TListItemTextHelper.GetText: string;
begin
  Result := Self.Caption + #13#10 + Self.SubItems.Text;
end;

procedure TListItemTextHelper.SetText(const Value: string);
begin
  Self.SubItems.Delimiter := ';';
  Self.SubItems.DelimitedText := Value;
  if Self.SubItems.Count > 0 then
  begin
    Self.Caption := Self.SubItems[0];
    Self.SubItems.Delete(0);
  end;
end;

{ TListItemsLoadHelper }

procedure TListItemsLoadHelper.LoadFromFile(AFileName: TFileName);
var
  FileContents: TStringList;
  CurrentLine: string;
begin
  FileContents := TStringList.Create;
  try
    FileContents.LoadFromFile(AFileName);
    for CurrentLine in FileContents do
      Self.Add.Text := CurrentLine;
  finally
    FileContents.Free;
  end;
end;                    

1:

 Listview1.Items.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'test.txt');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

procedure TfrmMain.FillListview;
var
  i: Integer;
  j: Integer;
  sl: TStringList;
  StartIdx: Integer;
  DelimitedLine: TStringList;
  LVItem: TListItem;
begin
  try
    FCancel := False;
    UpdateStatus('Lese Datei... Abbrechen mit ESC');
    lvCSVFile.Items.Clear;
    sl := TStringList.Create;
    try
      DelimitedLine := TStringlist.Create;
      Delimitedline.StrictDelimiter := True;
      DelimitedLine.Delimiter := FDelimiter;
      try
        sl.LoadFromFile(FFilename);
        ProgressBar1.Max := sl.Count;
        Application.ProcessMessages;
        if chKHasColumnNames.Checked then
          StartIdx := 1
        else
          StartIdx := 0;
        for i := StartIdx to sl.Count - 1 do
        begin
          if FCancel then
            Break;
          DelimitedLine.DelimitedText := sl[i];
          LVItem := lvCSVFile.Items.Add;
          LVItem.Caption := IntToStr(i);
          FCountRecords := i;
          UpdateStatusbar;
          for j := 0 to DelimitedLine.Count - 1 do
          begin
            LVitem.SubItems.Add(DelimitedLine[j]);
          end;
          ProgressBar1.StepIt;
          Application.ProcessMessages;
        end;
      finally
        DelimitedLine.Free;
      end;
    finally
      sl.Free;
    end;
    Progressbar1.Position := 0;
    FColumnToSort := 0;
    lvCSVFile.AlphaSort;
    UpdateStatus('Datei gelesen');
  except
    raise Exception.Create('Fehler beim Lesen der Datei');
  end;
end;