[Andrej-zhe]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var tblSbor: TTable;  - может тут. 
begin
Query1.Close;
Query1.SQL.Text:='SELECT d.kod, d.name, o.n FROM duh.dbf d, oper.dbf o, oper_ozo.dbf z WHERE d.type||d.subtype||d.kod = o.type||o.subtype||o.kod AND d.type||d.subtype||d.kod = z.type||z.subtype||z.kod';
Query1.Open;
if Query1.RecordCount>0
  then
  begin
  tblSbor.Open;
  while not Query1.Eof do
    begin
    tblSbor.Insert;
    tblSbor.FieldByName('kod').Value:=Query1.FieldByName('kod').Value;
    tblSbor.FieldByName('name').Value:=Query1.FieldByName('name').Value;
    tblSbor.FieldByName('n').Value:=Query1.FieldByName('n').Value;
    tblSbor.Post;
    Query1.Next;
    end;
  end
  else ShowMessage('Ни одной записи не найдено');
end;

Админ: Пользуемся тегами для оформления кода!

если можно напишите какие настройти надо компаненте ставить.