Meu amigo não tem como da errado...
Na situação abaixo:
TabConvenio = Table
NumConv = Campo dentro da tabela TabConvenio


Linha correta:

TabConvenio. First;
listbox2.Clear;
while not TabConvenio.Eof do
begin
  listbox2.Items. Add(TabConvenioNumConv.AsString) ;
  TabConvenio.Next;
end;

Responder a