ListView1.Column[2].MaxWidth := 0;
ListView1.Column[2].MinWidth := 0;
ListView1.Column[2].Width := 0;
ListView1.Column[2].Tag := -1; //memastikan control non-aktif

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  with ListView1 do
   begin
     //Mengganti salah satu kolom
     listview1.Items.Item[0].SubItems.Strings[1] := '2/8/08';
     //menghapus kolom.....
      for i := 0 to items.Count -1 do
       listview1.Items.Item[i].SubItems.Strings[1] := '';
   end;
end;

procedure TForm1.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  Column.Free;
end;

@madi:

procedure TForm1.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  Column.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  with ListView1 do
   begin
      for i := 0 to items.Count -1 do
       begin
         Items.Item[i].SubItems.Delete(1);
       end;
     end;
    ListView1.Columns[2].Free;
end;

@madi: mungkin angkanya, masih ikut tuh...hilangin dulu angkanya kale..yee...