Помогите!!!!

с самого начала:
допустим есть туева хуча таблиц, одна основная , и куча других
основная связана  другими так коряво что просто незнаю что делать
а менять нельзя (эти таблицы делал не я)
связь идет примерно так в основное таблице есть значения по порядку

table1
|     fam      |imya|
||_|
|Паспорт     |1
|Права        |1
|Сбер.к.      |1
|Паспорт     |2

Петров имеет три документа

Сидоров имеет один

да еще в добавок ко всему , все поля в таблицах текстовые!!!

как связать эти таблицы!!!!!!????


Второй вопрос, я связал эти таблицы так, через фильтр

procedure TForm1.table2FilterRecord(DataSet: TDataSet;
 var Accept: Boolean);
begin
accept:= (strtoint(table2['p99999'])= table1.RecNo);
end;

он сел клик, или бутон клик делаю

 table2.Filtered:=false;
 table2.Filtered:=true;

работает.

теперь хочу вытащить значения из поле, а там есть пустые поля

и при исполнении такого кода выдает ошибку inalid variant type convertion!!!!!
 
poter:='документ:'+table3['R32']

или хоть проверку делаю

if table3['R32']='' then beep;

и снова
inalid variant type convertion!!!!!

table3['R32'].asstring не помогает что делать!!!!

ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!

извините вкралась ошибка

table1
|     fam      |imya|
_ _ _ _ _ _ _ _ _ _
|  Петров    |Иван|
|  Сидоров  |Вася|


table2
| документ  | ном
_ _ _ _ _ _ _ _ _ _
|Паспорт     |1
|Права        |1
|Сбер.к.      |1
|Паспорт     |2

Для связи таблиц используй SQL...Селектуй нужные записи сразу из двух таблиц

а как их связать ? у них же нет общего поля!!!!!!!!!!!!