[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.