[cloayza]

Estimado y si prueba esta variante...

TListItem *pItem;

fMenu->Query->Close();
fMenu->Query->SQL->Text = "";
fMenu->Query->SQL->Text = "SELECT DISTINCT Junta, NomJunta FROM Rc02";
fMenu->Query->Open();

LisJun->Items->Clear();

while (!fMenu->Query->Eof)
{
     pItem = LisJun->Items->Add();
     pItem->Caption = fMenu->Query->FieldByName("NomJunta")->AsString;
     pItem->SubItems->Add(fMenu->Query->FieldByName("Junta")->AsInteger);

     fMenu->Query->Next())
}

Saludos cordiales