TListView

 //删除当前行
for i:=ListView1.Items.Count-1 downto 0 Do
if ListView1.Items[i].Caption = Edit1.Text then
begin
ListView1.Items.Item[i].Delete();
end;

//添加数据
Var
  wIp: String;
  wPort: Word;
  wItem: TListItem;
begin
  wIp := AContext.Connection.Socket.Binding.PeerIP;
  wPort := AContext.Connection.Socket.Binding.PeerPort;
  wItem := ListView1.Items.Add;
  wItem.Caption := wIp;
  wItem.SubItems.Add(IntToStr(wPort));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  With ListView1 Do
  Begin
    Columns.Items[0].Caption := '帐号'; // 添加列表标题
    Columns.Items[1].Caption := '密码';
  End;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  With ListView1.Items.Add Do
  Begin
    Caption := '284474863'; // 添加第一列子项
    SubItems.Add('123456'); // 添加第二列子项
  End;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
  I: Integer;
begin
  for I := ListView1.Items.Count - 1 downto 0 do
  Begin
    if ListView1.Items[I].Caption = LabeledEdit1.Text then // 按第一列标题删除
// if ListView1.Items[I].SubItems.Strings[0] = LabeledEdit1.Text then // 按第二列字符串删除
    Begin
      ListView1.Items[I].Delete;
    End;
  End;
end;

{选中单行或多行 放进剪贴板}
var
  I: integer;
  Clip: TClipboard;
  Str: TStringList;
begin
  Clip := TClipboard.Create;
  Str := TStringList.Create;
  for I := 0 to ListView1.Items.Count - 1 do
  Begin
    If ListView1.Items[I].Selected Then
    Begin
      Str.Add(ListView1.Items.Item[I].SubItems[1]);
    End;
  End;
  Clip.AsText := Str.Text + '下载完了喊我们帮你安装！';
end;