Fórum Como colocar em ordem alfabética (nome)? #350073

Olá,

Estou mostrando os dados da tabela em uma ListView, e gostaria de saber como mostrar em ordem alfabética (nome)?

procedure TForm_Contatos.TabSheet_contatosShow(Sender: TObject);
var
ListItem : TListItem;
begin
dm_contatos.tab_telefones.First;
while not dm_contatos.tab_telefones.EOF do
begin
ListItem:= LV_contatos.Items.Add;
ListItem.Caption:=(dm_contatos.tab_telefonescodigo.AsString);
ListItem.SubItems.Add(dm_contatos.tab_telefonesnome.value);
ListItem.SubItems.Add(dm_contatos.tab_telefonesfixo.value);
ListItem.SubItems.Add(dm_contatos.tab_telefonescelular.AsString);
dm_contatos.tab_telefones.next;
end
end;