hjælp til SQL i Borland CPP builder v. 6

jeg skal hente nogle navne ud fra en table

og det har jeg gjort sådan
AnsiString sql;
sql = "select * from employee";        //vælger alt

Form1->q->Close();
Form1->q->SQL->Clear();
Form1->q->SQL->Add(sql);
Form1->q->ExecSQL();            //tilføjer alt til q
Form1->q->Open();
Form1->q->First();

while (Form1->q->Eof);
{
//her skal tingene lægge = her kommer tingene fra

Form1->ListBox1->Items->Add(Form1->q->FieldByName("fname")->AsString);
Form1->q->Next();


}

men min funktion/kald returnere kun et navn.. hvordan laver jeg den om til at hente alle navne.. i fname.,.