listbox

ola amigos eu estou com uma pequena duvida, eu quero selecionar um item de um listbox e apagar o registro da tabela.
Se alguem puder dar uma ajuda?

begin
dm.Table1.SetKey;
dm.Table1nome.value := ListBox1.[color=red:7844953aca]alguma coisa[/color:7844953aca]
if dm.Table1.GotoKey then
begin
dm.Table1.Delete;
dm.Table1.refresh;
end;
end;