[lmikle]

Ну, как то так, например:

Код:

var
  I, J : Integer;
  Item : TListItem;
begin
  I := 0;
  While I < Memo1.Lines.Count Do
    Begin
      Item := ListView1.Items.Add;
      Item.Caption := Memo1.Lines[i];
      For J := 0 To 4 Do
        Item.SubItems.Add(Memo1.Lines[I+J]);
      I := I + 6;
    End;
end;