ну так и бери 2 компонента Table. Table1 у тебя будет держать новую таблицу, а Table2 будет поочередным источником 3-х твоих таблиц по которым ты будешь бегать в цыкле и писать записи в Table1
примерно так:
Код:
Table1.Close;
Table1.TableName:='New_table.db';
Table1.Open;
for i:=0 to 2 do
begin
Table2.Close;
Table2.TableName:='Memo1.Lines[i]';
Table2.Open;
while not Table2.EOF do
begin
Table1.Insert;
Table1.Fields[0].Value:=Table2.Fields[0].Value;
Table1.Fields[1].Value:=Table2.Fields[1].Value;
Table1.Fields[2].Value:=Table2.Fields[2].Value;
Table1.Post;
Table2.Next;
end;
Table1.Insert
Table2.Post;
end;