[LiAnTe-]

os dejo el codigo de creacion de las virtuales...

Código Delphi [-]
TTiqCap.IndexDefs.add('','Tienda; Puesto; Numero; Anyo', [ixPRIMARY] );
TTiqDet.IndexDefs.add('','Tienda; Puesto; Numero; Anyo; Linea', [ixPRIMARY] );
TTiqCom.IndexDefs.add('','Tienda; Puesto; Numero; Anyo; Linea', [ixPRIMARY] );
           TTiqDet.MasterSource := DsTiqCap;
           TTiqDet.MasterFields := 'Tienda;Puesto;Numero;Anyo';
           TTiqDet.IndexFieldNames := 'Tienda;Puesto;Numero;Anyo';
           TTiqCom.MasterSource := DsTiqCap;
           TTiqCom.MasterFields := 'Tienda;Puesto;Numero;Anyo';
           TTiqCom.IndexFieldNames := 'Tienda;Puesto;Numero;Anyo';
           TTiqCap.CreateTmpTable;
           TTiqDet.CreateTmpTable;
           TTiqCom.CreateTmpTable;

procedure TTmpTable.CreateTmpTable;
begin
  FTemporal := True;
  try
     if FDirecTemp <> '' then DatabaseName := FDirecTemp
     else DatabaseName := GetTempDirectory;
     TableName := GetUniqueFileName(FDirecTemp);
    FFichero     := TableName+'.tmp'; 
    CreateTable;
  except
    FTemporal := False;
    FFichero := '';
    raise;
  end;
end;