[Morfey85]

Все разобрался вот так заработало

ADOTable1.First;
ListBox1.Items.Clear;
ListBox2.Items.Clear;
x:=0;
for k:=0 to ADOTable1.RecordCount-1 do
begin
fam:=ADOTable1.FieldValues['Фамилия'];
if s=fam[1] then
begin
imia:=ADOTable1.FieldValues['Имя'];
otch:=ADOTable1.FieldValues['Отчество'];
ListBox1.Items.Insert(x,fam+' '+imia[1]+'. '+otch+'.');
ListBox2.Items.Insert(x,ADOTable1.FieldValues['ID']);
inc(x);
end;
ADOTable1.Next;
end;