[N.I.K.O.L.A]

Помогите пожалуйста , как организовать в ListView два столбца Items.

Я делаю так:

Код:

procedure CollectInformation;
begin
  InputQuery('Ввод данных', 'Введите время:', strA);
  InputQuery('Ввод данных', 'Введите причину:', strB);
end;

procedure TEditorRingWindow1.SpeedButton4Click(Sender: TObject);
begin
CollectInformation;
ListView1.Items.Add.Caption := StrA;
ListView1.Items.Add.SubItems.Text := StrB;
end;

И у меня получается что,
Безымянный.bmp.

[angvelem]

Так:

Код:

var
  ListItem	: TListItem;
begin
  ...
  ListItem := ListView1.Items.Add;
  ListItem.Caption := StrA;
  ListItem.SubItems.Add(StrB);

[N.I.K.O.L.A]

Спасибо большое.