Select
table1.number,
table1.family,
table1.name,
table1.lives,
table1.telephon
From table1
As table1

Select
table2.num,
table2.family,
table2.name,
table2.data,
table2.sved
From table2
As table2
Where (num=:number) -- это number по понятиям дяди Игоря поле из первого ADOquery:)))

void AddString(AnsiString Str)
{
  TStringList *List=new TStringList; // Зачем это именно здесь?:-)
  List->Add(Str); // Как ни странно, это единственная "полезная" строчка в этой чудо-функции:)
  List->SaveToFile("mynewstrings.txt"); // Если у тебя 1000000 записей, ты будешь сохранять этот файл пока на винте бэдблоки не появяться???
  List->Clear(); // Абзац полный!!!
  delete List; // Я бы это сделал в другом месте:-)
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *List=new TStringList;
AnsiString sql;
sql=AnsiString("Select * From prim1 WHERE family LIKE '")+Edit1->Text+"'";
ADOQuery2->SQL->Add(sql);
ADOQuery2->Open();
TField  *fld0=ADOQuery2->Fields->Fields[ 0 ];
for(ADOQuery2->First();!ADOQuery2->Eof;ADOQuery2->Next())
   List->Add(fld0->AsString);
ADOQuery2->Close();
List->SaveToFile("mynewstrings.txt");
List->Clear();
delete List;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *List=new TStringList;
AnsiString sql;
sql=AnsiString("Select * From prim1 WHERE family LIKE '")+Edit1->Text+"'";
ADOQuery2->SQL->Add(sql);
ADOQuery2->Open();
TField  *fld0=ADOQuery2->Fields->Fields[ 0 ];
TField  *fld1=ADOQuery2->Fields->Fields[ 1 ];
TField  *fld2=ADOQuery2->Fields->Fields[ 2 ]; // Сколько там у тебя полей?
for(ADOQuery2->First();!ADOQuery2->Eof;ADOQuery2->Next())
   List->Add(fld0->AsString+", "+fld1->AsString+", "+fld2->AsString);
ADOQuery2->Close();
List->SaveToFile("mynewstrings.txt");
List->Clear();
delete List;
}

(prim1.key=sec1.key) Inner Join TH1 on (sec1.key=TH1.key)