ListBox - 2 colunas e deletar itens

[Renanbg 1]

Tenho esse codigo que uso pra listar um diretorio no listbox.

 

procedure listarArquivosDir(diretorio: string; lista: TStrings);
var
  search_rec: TSearchRec;
begin
  if FindFirst(diretorio + '*.*', faAnyFile, search_rec) = 0 then
    begin
      repeat
        if search_rec.Attr <> faDirectory then
          lista.Add(search_rec.Name);
      until FindNext(search_rec) <> 0;

      FindClose(search_rec);
    end;
end;

Pra funcionar:

 

procedure TForm1.btn1Click(Sender: TObject);
begin
listarArquivosDir('C:\Backup\', lst1.Items);
end;

Agora a duvida:

 

Tem como listar junto com os itens, o tamanho e a data de criação? Seriam 3 colunas no total.

 

Pra deletar um item do listbox usa-se:

 

lst1.Items.Delete(lst1.ItemIndex);

Se eu quiser deletar ele do disco, como se faz?

 

abraços.

[Raficcha 1]

Você pode utilizar a formatação das strings ou utilizar um TStringGrid.

[Renanbg 1]

O problema é que não sei fazer isso. Tem algum link onde eu possa pesquisar a respeito ou um exemplo?

 

Pra deletar um item do disco via listbox, recebi esse codigo de um amigo. E funciona bem.

 

DeleteFile('C:\Backup\'+ListBox1.Items[ListBox1.ItemIndex]);

Pra listar resolvi optar por um listview, pois é mais pratico para se criar as colunas.

Porem o codigo acima não funciona para deletar o arquivo no listview.

Alguem sabe como deletar?