listbox手机样式显示

procedure TFormMain.FillListBox;
var
  // item:TMetropolisUIListBoxItem;
  // listitem:TListboxItem;

  p: PpatientData;
  LItem: TListViewItem;
  i: Integer;
begin
  ListViewPatient.Items.Clear;
  if not cdspatientlist.Active then
    Exit;
  ListViewPatient.BeginUpdate;
  try
    with cdspatientlist do
    begin
      DisableControls;
      try
        i := 1;
        First;
        while not Eof do
        begin
          New(p);
          p.patient_id := FieldByName('patient_id').AsString;
          p.admiss_times := FieldByName('admiss_times').AsInteger;
          p.inpatient_no := FieldByName('inpatient_no').AsString;
          p.bed_no := FieldByName('bed_no').AsString + '床';
          p.nurse_level := FieldByName('nurse_level').AsString;
          p.diag := FieldByName('diag').AsString;
          p.name := FieldByName('name').AsString;